Question

СРОЧНО!!!
Ответьте пожалуйста! Нужно решить задачи по программе паскаль! У меня осталось мало времени до проверки дз мне могут поставить 2!! ПОЖАЛУЙСТА Я ВАС ПРОШУ тот кто решит тому 40 БАЛЛОВ!

Answer 1

var

r1:integer; begin read(170)

r2:integer; begin read(156)

r3:integer; begin read(169) : real;

begin

readln(r1, r2, r3);

if (r1>=r2) and (r1>=r3) then

writeln(r1)

else if (r2>=r1) and (r2>=r3) then

writeln(r2)

else

2.задание

var

a:integer; begin read(45)

b:integer; begin read(50)

c:integer; begin read(15)

i:integer; begin read(20)

s=0

for a:>

вроде так, ещё разреши задать вопрос, где ты живёшь что у тебя изучают Паскаль.