Question

помогите очень нужно задача по паскалю
Вводятся семь целых чисел. Напишите программу, которая полсчитывает количество пятёрок среди введённых чисел

Answer 1

var c1,c2,c3,c4,c5,c6,c7,k:integer;
begin
read(c1,c2,c3,c4,c5,c6,c7);
if(c1=5)then k:=k+1;
if(c2=5)then k:=k+1;
if(c3=5)then k:=k+1;
if(c4=5)then k:=k+1;
if(c5=5)then k:=k+1;
if(c6=5)then k:=k+1;
if(c7=5)then k:=k+1;
writeln(k);
end.

Answer 2

спасибо большое)))))))))))))

Answer 3

не по теме решение

Answer 4

почему

Answer 5

var i, a, count: integer;
begin
count:=0;
for i:=1 to 7 do begin
  read(a);
  if(a=5) then count+=1;
  end;
writeln(count);
end.

если вы прошли циклы, то учитель дает задания именно на циклы

Answer 6

точно) не подумала о том что ввод тоже может в цикле быть)

Answer 7

спасибо