Question

Вывести на экран в виде таблицы все целые числа от a до b ,кратные c

Answer 1

var a,b,c:integer;
begin
read(a,b,c);
for a:=a to b do
if a mod c = 0 then write(a,' ');
end.

Answer 2

как это сделать в QBasic через Do Until(цикл с постусловием)???

Answer 3

с синтаксисом QBasic не знаком, могу написать на паскале

Answer 4

НУ ЕСЛИ МОЖНО)

Answer 5

var a,b,c:integer;
begin
read(a,b,c);
repeat
if a mod c = 0 then write(a,' ');
a+=1;
until a>b;
end.