помогите пожалуйста решить номер 2 и 3.Ничего сама не понимаю...дам 40 боллов！ето срочно....
Answers & Comments
tylig
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.
2 votes Thanks 1
tylig
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.
tylig
И третья var a,b : integer; begin read(a); b :=a mod 10; a:=a div 10; if (a=b) then write('Есть') else write ('Нет'); end.
Answers & Comments
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.
a,b : integer;
begin
read(a);
b :=a mod 10;
a:=a div 10;
if (a=b) then write('Есть') else write ('Нет');
end.