• Предмет: Информатика
  • Автор: Фази
  • Вопрос задан 11 месяцев назад

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

Приложения:

Ответы

Ответ дал: tylig
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.

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.
Вас заинтересует