Регистрация
volfxeniya
27.07.2022 21:58
Информатика
Есть ответ 👍

Найти максимальное среди n заданных чисел: a1,

244
467
Посмотреть ответы 2

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

annasuhanova013нюта
annasuhanova013нюта
4,4(11 оценок)
Pascalabc.net 3.3.5, сборка 1650 от 01.04.2018 внимание! если программа не работает, обновите версию! begin   readseqinteger(readinteger('n='.println end.
gay2002
gay2002
4,4(85 оценок)
Program colorscr; uses crt;     label 1; var c,x,y,i,l: integer; s: string; ch: char; begins: ='алиса'; l: = length(s); 1: for i: =1 to l do beginx: =10+2*i; y: =10; c: =random(15)+1; textcolor(c); gotoxy(x,y); write(copy(s,i,1)); end; ch: =readkey; if ch< > '0' then goto 1; end.

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