Вводятся целые числа до тех пор пока не будет - вопрос №0612711 от berezkina04 05.06.2022 21:54

Question

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

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