Регистрация
polinabaryshni
22.03.2022 23:44
Информатика
Есть ответ 👍

На 20 , нужно написать программу и сделать алгоритм на листике! pascal

258
410
Посмотреть ответы 2

Ответы на вопрос:

петрович16
петрович16
4,4(2 оценок)
Код программы

program raf105;

var a,max: integer;

begin

writeln('вводите числа по очереди');

writeln('чтобы закончить введите 0');

a: =1;

while a< > 0 do

begin

  readln(a);

  if a> max

    then max: = a;

end;

writeln('максимальное число: ',max);

end.

алгоритм

начало

вывести "введите x: "

запросить х

присвоить y значение выражения x^4 + x^3 + x^2 + x^1

вывести у

конец

katerinaderiiu
katerinaderiiu
4,7(89 оценок)
Var a: integer; begin write ('введите двузначное число: '); readln (a); writeln('сумма цифр числа равна: ',a div 10 + a mod 10) end.

Популярно: Информатика