Здравствуйте, дорогие ребята! Мы с вами подходим - вопрос №18516237 от VeNoM13371 30.06.2020 13:39

Question

Информатика: Здравствуйте, дорогие ребята! Мы с вами подходим к концу нашего учебного года и по информатике, каждый год есть проектная деятельность. Все остальные уроки вы будете работать над своим проектом. Это не шуточные работы, не нужно спешить, используйте все свои навыки за этот год. Работу необходимо выполнять всем учащимся до 19.05 включительно. Не отправляйте сегодня ничего, подумайте, сделайте больше. Тема проекта у всех одна: Береги планету , вам необходимо сделать на эту тему доклад (в word, wordpad

VeNoM13371 · Answer

Согласно первому заданию надо сначала найти максимальный элемент

uses crt;
var x,y,z,max:integer;

Begin
writeln('Введите x y z');
readln(x,y,z);
if (x>y) and (x>z)
then max:=x
else
if (y>x) and (y>z)
then max:=y
else max:=z;

Writeln('max =',max);
Writeln('Младший разряд =',max mod 10);
Writeln('Остаток от деления на 3 =',(max mod 10) mod 3);

readln;
end.

2)

var n: Integer;
Begin
writeln('Введите день недели');
readln(n);
write('Уроков ');

case n of
1-4: writeln('6');
5,6: writeln('5');
7: writeln('нет');

end;
End.