написать листинг программы по теме циклы (циклы с параметром (for)).
Задания следует решать с организацией цикла с параметром: Вводятся 8 чисел. Определить, сколько среди них чисел равных 3.

ivanural ivanural    2   04.04.2020 15:11    1

Ответы
theta4ka theta4ka  12.10.2020 14:10

var i,a,k:integer;

begin

k:=0;

for i:=1 to 8 do

begin

readln (a);

if a = 3 then k:=k+1

end;

writeln (k)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика