ответ:program chisla;
var i:integer;
begin
for i:=1 to 100 do
begin
if (i mod 3 = 0)
then write(i,' ');
end;
Объяснение:
PascalABC.NET
begin
var (lb, rb) := ReadInteger2('введите начало и конец ряда чисел');
Range(lb, rb).Where(x->x mod 3 = 0).Println;
end.
Или, если ряд - это что то, вводимое с клавиатуры:
begin
ReadSeqInteger('Вводи: ', ReadInteger('Длина последовательности:')).Where(x -> x mod 3 = 0).Println;
end.
