Укажите команды в результате которых значение переменной m в памяти пк будет равно 20.

1) write (10+10)

2) read (20) ;

3) m:=20

4) readln (10'+10') ;

5) m:=5+15

6) writeln (m:=20)

Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;

Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m. 1) begin writeln ('Введи длину и ширину прямоугольника c и m') ; readln (c, m) ; s:=c*m; writeln ('s=', s) ; readln; end.

Что я неправильно написал? var a, b, c, d: real; begin writeln (' введи число a') ; readln (a) ; writeln ('введи число b') ; readln (b) ; writeln ('введи число c') ; readln (c) ; d:=a; a:=c; writeln (a) ; c:=b; writeln (c) ; b:=d; writeln (b) ; end.

Program zadacha3; var x, y : real; rez : char; begin write ('x=') ; readln (x) ; write ('y=') ; readln (y) ; write ('Введите число') ; readln (rez) ; case rez of '1' : writeln ('x+y=', x+y) ; '2' : writeln ('x-y=', x-y) ;

Написать программу нахождения периметра параллелограмма по известным сторонам b и h (b и h - целые числа, вводимые с клавиатуры).