Регистрация
rynnotynno
05.01.2020 06:14
Информатика
Есть ответ 👍

Выполни склеивание мешков z и n - заполни таблицу, нарисуй в окне мешок z и n

260
319
Посмотреть ответы 2

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

Rımma7
Rımma7
4,7(19 оценок)
Где его нету измени
АНОНЯ1478
АНОНЯ1478
4,5(65 оценок)
Попробуй так: uses crt; var a, max: real;       i: integer; begin clrscr; i: =0; repeat   i: =i+1;   write ('a',i,'='); readln (a);   if a< > 0 then           begin               if a> max then max: =a;           end;   until a=0; writeln; writeln(' max = ', max: 6: 4); readln; end.

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