Регистрация
kroshkaPo
07.07.2020 11:08
Информатика
Есть ответ 👍

3.Компьютерлік вирустардың жіктелуін жазыңыз: 1 2 3 4

161
325
Посмотреть ответы 1

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

raya323
raya323
4,6(86 оценок)

Pascal?

var min, max, j, count: integer;

begin

min:=30000;

max:=0;

readln(j);

while j <> 0 do begin

if (j mod 5 = 0) and (j < min) then begin

min:= j;

count:= count + 1;

end;

if (j mod 5 = 0) and (j > max) then begin

max:= j;

count:= count + 1;

end;

readln(j);

end;

if count = 0 then write('NO') else write((min+max)/2);

end.

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