Вводятся целые числа до тех пор пока не будет введен - вопрос №0613054 от ПолинаПашкова14 24.03.2023 22:38

Question

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

ПолинаПашкова14 · 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....