А) Петя получает по информатике три оценки. Назовите оценки переменными О1, О2, О3. Оценки могут быть разными: от 2 до 5, должны вводиться с клавиатуры.
Б) Задача программы
найти среднее арифметическое этих оценок (назовите переменную, отвечающую за среднее арифметическое – sr)
вывести на экран сообщение:
«Петя, ты двоечник по информатике» (если среднее арифметическое меньше 2.5)
«Петя, ты троечник по информатике» (если среднее арифметическое от 2.5 до 3.4)
«Петя, ты ударник по информатике» (если среднее арифметическое от 3.5 до 4.4)
«Петя, ты отличник по информатике (если среднее арифметическое больше 4.5)
Б) Задача программы
найти среднее арифметическое этих оценок (назовите переменную, отвечающую за среднее арифметическое – sr)
вывести на экран сообщение:
«Петя, ты двоечник по информатике» (если среднее арифметическое меньше 2.5)
«Петя, ты троечник по информатике» (если среднее арифметическое от 2.5 до 3.4)
«Петя, ты ударник по информатике» (если среднее арифметическое от 3.5 до 4.4)
«Петя, ты отличник по информатике (если среднее арифметическое больше 4.5)
More Questions From This User See All
Answers & Comments
Ответ:
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);
repeat
write ('Введите 2 оценку ');
read (o2);
if (o2<2) or (o2>5) then writeln ('Ошибка')
until (o2>1) and (o2<6);
repeat
write ('Введите 3 оценку ');
read (o3);
if (o3<2) or (o3>5) then writeln ('Ошибка')
until (o3>1) and (o3<6);
sr:=(o1+o2+o3)/3;
if sr<2.5 then writeln('Петя, ты двоечник по информатике')
else
if sr>4.5 then writeln('Петя, ты отличник по информатике')
else
if (sr>=2.5) and (sr<=3.4) then writeln('Петя, ты троечник по информатике')
else writeln('Петя, ты ударник по информатике')
end.