Question

30 1) выведите на экран 'сегодня понедельник' 2) выведете на экран на языке паскаль а> b, а> 35 3) сделайте запрос на ввод переменной и введите переменную 4) изобразите на языке паскаль, если а> b, то вывести значенин а на экран, иначе вывести b 5) введите с клавиатуры 2 любых числа, найдите их сумму, выведите на экран нужно!

Answer 1

1)

beginwrite('сегодня понедельник');end.

2)

beginwrite('a>b, a>35');end.

3)

var x:integer; begin read(x); end.

4)

var a,b:integer;beginreadln(a,b);if a>b then write(a)else write(b);end.

5)

var x,y,z:integer; begin readln(x,y); z:=x+y; write(z); end.