1)Вывести на экран все числа кратные одновременно и трем и пяти от 0 до 1000.
2)Пользователь вводит число N с клавиатуры. Вывести на экран N раз все числа от 1 до 10.
дам баллы

Программа:

1)

var i: integer;

begin

for i:=1 to 1000 div (3*5) do

write(i*3*5,' ');

end.

Результат:

15 30 45 60 75 90 105 120 135 150 165 180 195 210 225 240 255 270 285 300 315 330 345 360 375 390 405 420 435 450 465 480 495 510 525 540 555 570 585 600 615 630 645 660 675 690 705 720 735 750 765 780 795 810 825 840 855 870 885 900 915 930 945 960 975 990

Программа:

2)

var n,i,j: integer;

begin

readln(n);

for i:=1 to n do

begin

for j:=1 to 10 do write(j,' ');

writeln;

end;

end.

Пример:

5

1 2 3 4 5 6 7 8 9 10  

1 2 3 4 5 6 7 8 9 10  

1 2 3 4 5 6 7 8 9 10  

1 2 3 4 5 6 7 8 9 10  

1 2 3 4 5 6 7 8 9 10