Question

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

Answer 1

Ответ:

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.