Написать 2 программы ** языке Паскаль 1) Вывести ** экран все произведения N ** M, M...

Question

Написать 2 программы на языке Паскаль 1) Вывести на экран все произведения N на M, M уменьшается каждый раз на 2 до 0. Пример: Ввод M:=10; N:=3; Вывод 30 24 18 12 6 2) N меняется от 2 до 7, на экран выводиться M, которое равно N+X. X вводиться с клавиатуры. Пример: Ввод X:=4; Вывод 6 7 8 9 10 11

Answer 1

1) Var s, m, n:integer;

Begin

Write('m=') ;read(m) ;

Write('n=') ;read(n) ;

While m>0 do begin

Write(' ', m*n) ;

M:=m-2;

End;

End.

2) Var x, n:integer;

Begin

Write('x=') ;read(x) ;

For n:=2 to 7 do begin

Write(' ', n+x) ;end;

End.