написать листинг программы по теме циклы (циклы - вопрос №11033082 от принцеска005 29.12.2022 11:56

Question

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

принцеска005 · Answer

var i,a,k:integer; begink:=0;for i:=1 to 8 do begin readln (a); if a = 3 then k:=k+1 end; writeln (k)end....