profile
Размещено 4 года назад по предмету Информатика от kavkaz2289

В "PascalABC" нужна программа, которая определит % переменных. Вот условие: дано n (переменная для ввода, не затрагивается в ответе) учеников, после контрольной a-"5", b-"4", c-"3". Надо найти процент каждой оценки (числа в кавычках - цифровое обозначение оценки, не значение)

  1. Ответ на вопрос
    Ответ на вопрос дан Mazay98
    uses crt;var a,b,c,d:integer;proc:real;beginclrscr;write('Введите кол-во «5» | ');readln(a);write('Введите кол-во «4» | ');readln(b);write('Введите кол-во «3» | ');readln(c);writeln('======================');d:=a+b+c;writeln('Всего оценок: ',d);writeln('======================');writeln('*   Из них   *');proc:= (a*100)/d;writeln('«5» - ', proc:0:2,' %');proc:= (b*100)/d;writeln('«4» - ', proc:0:2,' %');proc:= (c*100)/d;writeln('«3» - ', proc:0:2,' %');end.
    1. Ответ на вопрос
      Ответ на вопрос дан Mazay98
      uses crt;
      var a,b,c,d:integer;
      proc:real;
      begin
      clrscr;
      write('Введите кол-во «5» | ');
      readln(a);
      write('Введите кол-во «4» | ');
      readln(b);
      write('Введите кол-во «3» | ');
      readln(c);
      writeln('======================');
      d:=a+b+c;
      writeln('Всего оценок: ',d);
      writeln('======================');
      writeln('* Из них *');
      proc:= (a*100)/d;
      writeln('«5» - ', proc:0:2,' %');
      proc:= (b*100)/d;
      writeln('«4» - ', proc:0:2,' %');
      proc:= (c*100)/d;
      writeln('«3» - ', proc:0:2,' %');
      end.
    2. Ответ на вопрос
      Ответ на вопрос дан kavkaz2289
      О, спасибо, жаль что сейчас не получится проверить, но реал огромное спасибо.
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.