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.
Можно выбрать любую фигуру и изменить узлы и рисуй что хочешь: звездочки,рыбок,домики....
Объяснение:
Также для рисования фигур и линий можно использовать кнопку “Фигуры”, расположенную на вкладке меню “Главная”. Если вы используете PowerPoint в качестве альтернативы программе MS Paint или другой графической программе, то созданные слайды при сохранении можно экспортировать в целый ряд форматов файлов изображений.
Чтобы изменить фигуру, передвиньте черные узлы изменения. Белые квадратные узлы изменения используются для изменения кривизны линий между двумя черными узлами изменения.
else Writeln('Буквы с нет')
end.