Вводятся целые числа до тех пор пока не будет введен - вопрос №6133880 от nastiya1111machneva 21.07.2021 13:26

Question

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

nastiya1111machneva · 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....