Помогите пожалуйста решить номер 2 и 3.Ничего сама не понимаю...дам 40 боллов！ето...

Question

Помогите пожалуйста решить номер 2 и 3.Ничего сама не понимаю...дам 40 боллов！ето срочно....

---

Answer 1

Vary,a,b,c,d,x,l : integer;beginwriteln('Нахождение наибольшей из четырех величин');write('Введите a,b,c>,d>');readln(a,b,c,d);if (a>b) then x:=a else x:=b;if (c>d) then l:=c else l:=d;if (x>l) then y:=x else y:=l;write('y=',y);end.

Comments

var
y,a,b,c,d,x,l : integer;
begin
writeln('Нахождение наибольшей из четырех величин');
write('Введите a,b,c>,d>');
readln(a,b,c,d);
if (a>b) then x:=a else x:=b;
if (c>d) then l:=c else l:=d;
if (x>l) then y:=x else y:=l;
write('y=',y);
end.

---

И третья var
a,b : integer;
begin
read(a);
b :=a mod 10;
a:=a div 10;
if (a=b) then write('Есть') else write ('Нет');
end.