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

camaroSSdodge camaroSSdodge    1   21.06.2019 11:30    0

Ответы
6506463 6506463  02.10.2020 07:22
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.
ПОКАЗАТЬ ОТВЕТЫ
maksatovna17 maksatovna17  02.10.2020 07:22
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.

если вы циклы, то учитель дает задания именно на циклы
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика