А) Петя получает по информатике три оценки. Назовите оценки переменными О1, О2, О3....

Question

А) Петя получает по информатике три оценки. Назовите оценки переменными О1, О2, О3. Оценки могут быть разными: от 2 до 5, должны вводиться с клавиатуры. Б) Задача программы найти среднее арифметическое этих оценок (назовите переменную, отвечающую за среднее арифметическое – sr) вывести на экран сообщение: «Петя, ты двоечник по информатике» (если среднее арифметическое меньше 2.5) «Петя, ты троечник по информатике» (если среднее арифметическое от 2.5 до 3.4) «Петя, ты ударник по информатике» (если среднее арифметическое от 3.5 до 4.4) «Петя, ты отличник по информатике (если среднее арифметическое больше 4.5)

Answer 1

Ответ:

program z1;

var o1,o2,o3:integer;

sr:real;

begin

repeat

write ('Введите 1 оценку ');

read (o1);

if (o1<2) or (o1>5) then writeln ('Ошибка')

until (o1>1) and (o1<6);</p>

repeat

write ('Введите 2 оценку ');

read (o2);

if (o2<2) or (o2>5) then writeln ('Ошибка')

until (o2>1) and (o2<6);</p>

repeat

write ('Введите 3 оценку ');

read (o3);

if (o3<2) or (o3>5) then writeln ('Ошибка')

until (o3>1) and (o3<6);</p>

sr:=(o1+o2+o3)/3;

if sr<2.5 then writeln('Петя, ты двоечник по информатике')</p>

else

if sr>4.5 then writeln('Петя, ты отличник по информатике')

else

if (sr>=2.5) and (sr<=3.4) then writeln('Петя, ты троечник по информатике')</p>

else writeln('Петя, ты ударник по информатике')

end.