Роман
задача паскаль, срочно плиз. На интервале от 1 до 100 вывести все числа, кратные 3 паскаль
спасибооо)
спасибооо)
program chisla;
var i:integer;
begin
for i:=1 to 100 do
begin
if (i mod 3 = 0)
then write(i,' ');
end;
end.
Всего чисел 16. 3, 13, 23, 33, 34, 35, 36, 37, 38, 39, 43, 53, 63, 73, 83, 93.
var i:integer;
begin
for i:=1 to 100 do
if (i mod 3 = 0) then writeln(i);
end.
Можно и так:
var
k: integer;
begin
k:=0;
while k<100 do begin
inc(k,3); writeln(k);
end;
end.