var i, a:longint;
begin
read(a);
for i:=1 to 1000 do
if (100 <= a * i) and (a * i <= 999) then
write(a * i, ' ')
end.
{$N+} (*Enable 287 soprocessor*)
var i:longint;
a:extended;
for i:=1 to 20 do write(i, ' ', a * i, ' Rub.', #13, #10);
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var i, a:longint;
begin
read(a);
for i:=1 to 1000 do
if (100 <= a * i) and (a * i <= 999) then
write(a * i, ' ')
end.
{$N+} (*Enable 287 soprocessor*)
var i:longint;
a:extended;
begin
read(a);
for i:=1 to 20 do write(i, ' ', a * i, ' Rub.', #13, #10);
end.