Предмет: Информатика,
автор: tishkin32
В заданном интервале целых натуральных чисел от N до M, подсчитайте количество чисел кратных K. в паскаль Помогите
Ответы
Автор ответа:
0
var m,n,i,k,c:integer;
begin
readln(n,m,k);
for i:=n to m do
if i mod k = 0 then c:=c+1;
write(c);
end.
begin
readln(n,m,k);
for i:=n to m do
if i mod k = 0 then c:=c+1;
write(c);
end.
Автор ответа:
0
// PascalABC.NET 3.2, сборка 1404 от 16.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a,b,k:integer; Read(a,b,k);
Writeln(Range(a,b).Where(i->i mod k=0).Count)
end.
// Внимание! Если программа не работает, обновите версию!
begin
var a,b,k:integer; Read(a,b,k);
Writeln(Range(a,b).Where(i->i mod k=0).Count)
end.
Похожие вопросы
Предмет: История,
автор: nastareva12
Предмет: Химия,
автор: CrazyGuy07
Предмет: Алгебра,
автор: Wwwona
Предмет: Информатика,
автор: Cinnamomum
Предмет: Математика,
автор: yulya212005