ЗАДАЧА КЛАССА ДЛЯ ВОСЬМОГО

1)var a,b,c: word;

begin

   readln(a);

   readln(b);

   readln(c);

   while a<=b do begin

       write(a,' ');

       a := a+c;

   end;

   writeln;

end.

2)

2

3

4

5

6

7

8

Var i:integer;

   p:longint;

Begin

   p:=1;

   For i:=8 to 15 do

    p:=p*i;

   writeln('Произведение: ',p);

End.