Регистрация
миньён9
01.08.2020 02:06
Информатика
Есть ответ 👍

Составить программу в паскаль. с клавиатуры вводится произвольная последовательность положительных чисел, за которой следует 0. определить: 1.максимальное число в этой последовательности. 2.количество четных чисел.

108
149
Посмотреть ответы 2

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

Stepan0305
Stepan0305
4,5(81 оценок)
//pascal abc.net v3.0 сборка 1111 var   a,k,max: integer; begin a: =1; max: =-1000; k: =0;   while a< > 0 do   begin;     if not(odd(a)) then inc(k);     if max< a then max: =a;     readln(a);   end; writeln('max=',max,', not odd: ',k); end.
ЭтотникужезанятSimon
ЭтотникужезанятSimon
4,5(13 оценок)

ответ:129.85.175.220

Объяснение: структура ip адреса: сеть, подсеть, номер компьютера(хоста)

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