Регистрация
Шоколадикус
28.11.2021 11:00
Информатика
Есть ответ 👍

Решить в паскаль найдите колличество чётных чисел

157
434
Посмотреть ответы 2

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

Aresn
Aresn
4,6(45 оценок)
Uses crt; var i,k,s,n: integer; begin k: =0; writeln('последовательность'); readln(n); for i: =1 to n do  begin  writeln('введите число'); readln(s);   if (s mod 2=0) then  k: =k+1;   writeln('s=',s);   end;   writeln('количество четных=',k);   end.
toniskvortsov1
toniskvortsov1
4,5(95 оценок)
Формальный исполнитель работает по уже готовой программе, а интеллектуальный сам составляет программу и получает результат

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