Составьте блок схему алгоритма и программу подсчета количества чисел кратныx 7. Числа вводятся с клавиатуры (признак окончания ввода число "0")
Язык паскаль
желательно сделать на листочке и фотку кинуть ;)
Ответы
Ответ дал:
0
var a,k:integer;
begin
a:=-1;
k:=-1;
while a<>0 do begin
read(a);
if a mod 7 = 0 then k+=1;
end;
writeln(k);
end.
begin
a:=-1;
k:=-1;
while a<>0 do begin
read(a);
if a mod 7 = 0 then k+=1;
end;
writeln(k);
end.
Ответ дал:
0
блок схемы уже не помню как делать
Ответ дал:
0
Ну и на это спасибо (;
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад