Среди целых чисел от n до m найти такие, которые при делении на 9 дают остаток 3 или 4, и найти их количество. Проверить для n=8, m=190

Категория: Delphi/Pascal
2012-01-17 22:53:55
code: #pascal
Program PascalGuru;
 
var i:integer;
    n,m,k:integer;
 
begin
write('n= '); readln(n);
write('m= '); readln(m);
 
i:=n-1;
k:=0;
 
repeat
inc(i);
 
 if (i mod 9=3) or (i mod 9=4) then
  begin
  inc(k);
  writeln(i);
  end;
 
until i=m;
 
writeln;
writeln('Kol-vo= ',k);
 
readln;
end.
Поделиться:

Похожие статьи:

теги: студенты, деление, целое число