Пользователь вводит 10 натуральных чисел. Вывести на экран количество трехзначных чисел, кратных 5. Если таких нет, на экран вывести No.
Ответы на вопрос
Ответил kopn48
0
Если задача на Паскале то вот:
Begin
var a:array of integer;
Var k:=0;
For var i:=1 to 10 do
Begin
Readln(b);
a[i]:=b;
End;
For var i:=1 to 10 do
Begin
If a[i] mod 5 = 0 then inc(k);
End;
If k=0 then println('No')
Else println(k);
End.
Должно быть так, проверить на ошибки не могу, так как компа нету рядом.
Begin
var a:array of integer;
Var k:=0;
For var i:=1 to 10 do
Begin
Readln(b);
a[i]:=b;
End;
For var i:=1 to 10 do
Begin
If a[i] mod 5 = 0 then inc(k);
End;
If k=0 then println('No')
Else println(k);
End.
Должно быть так, проверить на ошибки не могу, так как компа нету рядом.
Новые вопросы