Предмет: Информатика,
автор: Baffi567
В классе N- учеников по
контрольной получили A- пятерок , B- четвёрок , C- троек .Найти процент A,B,C
Ответы
Автор ответа:
11
Program zadanie;
Var a,b,c:real;
n:integer;
Begin
Writeln('Введите количество учеников');
Readln(n);
Writeln('Введите количество пятёрок в классе');
Readln(a);
a:=n/100*a;
Writeln('Введите количество четвёрок в классе');
Readln(b);
b:=n/100*b;
Writeln('Введите количество троек в классе');
Readln(c);
c:=n/100*c;
Writeln('Процент пятёрок в классе:',a);
Writeln('Процент четвёрок в классе:',b);
Writeln('Процент троек в классе:',c);
End.
Var a,b,c:real;
n:integer;
Begin
Writeln('Введите количество учеников');
Readln(n);
Writeln('Введите количество пятёрок в классе');
Readln(a);
a:=n/100*a;
Writeln('Введите количество четвёрок в классе');
Readln(b);
b:=n/100*b;
Writeln('Введите количество троек в классе');
Readln(c);
c:=n/100*c;
Writeln('Процент пятёрок в классе:',a);
Writeln('Процент четвёрок в классе:',b);
Writeln('Процент троек в классе:',c);
End.
Похожие вопросы
Предмет: Английский язык,
автор: ДядяПетяООО
Предмет: Окружающий мир,
автор: babahvaevaак
Предмет: Другие предметы,
автор: zed1504
Предмет: Биология,
автор: Suherwasi27654