Предмет: Информатика,
автор: Фази
помогите пожалуйста решить номер 2 и 3.Ничего сама не понимаю...дам 40 боллов！ето срочно....
Приложения:
Ответы
Автор ответа:
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.
И третья var
a,b : integer;
begin
read(a);
b :=a mod 10;
a:=a div 10;
if (a=b) then write('Есть') else write ('Нет');
end.
a,b : integer;
begin
read(a);
b :=a mod 10;
a:=a div 10;
if (a=b) then write('Есть') else write ('Нет');
end.
Похожие вопросы
Предмет: История,
автор: ddosik427
Предмет: География,
автор: abdumannapovfarhad0
Предмет: Математика,
автор: karinkaaaa49
Предмет: Математика,
автор: alexperevozki
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.