Напишите программу на ПАСКАЛЕ, которая вводит последовательность целых чисел, за...

July 2022 1 14 Report

Напишите программу на ПАСКАЛЕ, которая вводит последовательность целых чисел, заканчивающихся нулем, и определяет количество четных положительных чисел в этой последовательности

Answers & Comments

антагонист

Verified answer

Var a,col:integer;
begin
  col:=0;
  a:=0;
  while a<>0 do begin
read(a);
if ((a mod 2 = 0) and (a>0)) then col:=col+1;
  end;
write(col);
end.

rsr Спасибо. А у меня есть еще один вопрос по инфе, на который никто не ответил. Посмотри, пожалуйста, если хочешь еще баллов

антагонист не направите меня на него?

Answers & Comments

Verified answer

pomogite chto li napishite na paskale programmu kotoraya vvodit posledovatelno

ekologicheskaya rol lancetnika

napishite programmu kotoraya vvodit posledovatelnost celyh chisel zakanchivayushihd246fc666a8cb4ccfcdb160362e944c0 65985

napishite programmu kotoraya vvodit posledovatelnost celyh chisel zakanchivayushihs

napishite programmu kotoraya vvodit koordinaty tochki na ploskosti i opredelyaet p6519cbb919113373d4a6514cd9a03779 87430

argument iz literatury k probleme poteri detskogo vospriyatiya mira krome natashi

pomogite pozhalujsta napisat programmu na paskaleili hotya by algoritm na tom zh

рекомендуемые вопросы

Helpful Links

Helpful Social