Регистрация
baskaqusar
12.11.2022 09:07
Информатика
Есть ответ 👍

До іть з інформатикою
Завдання на фото

213
263
Посмотреть ответы 1

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

MrChronos
MrChronos
4,8(84 оценок)
Var a,b,c,d,i,m: integer; 1)  begin read(a); c: =a; b: =a; for i: =2 to 15 do begin read(a); if a> c then c: =a; if a< b then b: =a; end; m: =c-b; write(m); end. 2)var c,i: integer; begin for i: =1 to 100 do if i mod 2< > 0 then c: =c+1; write(c); end.

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