Вводятся целые числа до тех пор пока не будет введен - вопрос №0612886 от ayserg1980ozvpli 01.01.2021 15:11

Question

Информатика: Вводятся целые числа до тех пор пока не будет введен 0. определить сколько среди них четных и нечетных чисел. напишите программу используя цикл-пока(с предусловием): while do (ниже прикреплено фото с этой же программой но на основе цикла-до(repeat))

ayserg1980ozvpli · Answer

Var a, k1, k2:integer;BeginK1:=0;k2:=0;a:=1;While a 0 do beginWrite( a= ) ;read(a) ;If a mod 2 =0 then k1:=k1+1 Else k2:=k2+1;End;Write ( четных , k1-1) ;Write( нечетных , k2) ;End....