Пользователь вводит число А и диапазон, из этого выводятся все числа кратные заданному А.
Код:
Code
uses crt;
var a, b, c, i, k : integer;
BEGIN
write ('vvedite diapazon c > b: ');
read (b, c);
write ('vvedite 4islo dlya proverki delimosti a = ');
read (a);
writeln ('4isla, kratnie ', a);
k := 0;
for i := b to c do
if ( i mod a = 0 ) then
begin
k := 1;
write (i,' ');
end;
if ( k = 0 ) then write ('takih 4isel net')
END.