Паскаль абс2 задачи1Написать программу выводящую на экран последовательность чисел от 1 до 10 через пробел в строчку.2Написать программу которая бы вы

Паскаль абс

2 задачи

1)Написать программу выводящую на экран последовательность чисел от 1 до 10 через пробел в строчку.

2)Написать программу которая бы выводила на экран произведение нечетных чисел от 10 до 20.

  • Пожалуйста:

     

    1) 

    program posledovat1;
    var
      w:integer;

     

    begin

     

    w:=0;
    repeat

      w:=w+1;
      write(w,' ');
    until w=10

     

    end.

     

    2)

    program nechet1;
    var
      i,pr:integer;

     

    begin

     

    pr:=1;
    for i:=11 to 20 do
      if i mod 2 = 1 then
        pr:=pr*i;
        writeln(pr);

    end.


See also: