Написать 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
Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад