1)Задано а. Вычислить S:
S={a-5, если а>10
a+5, если а<=10
2)Даны два числа x,y.Найти наибольшее число из них (максимум).
Ответы на вопрос
Ответил Slizzz
0
1) var a,s:integer;
begin read(a);
if a>10 then s:=a-5;
if a<=10 theb s:=a+5;
writeln(s);
end.
2) var x,y:integer;
begin
read(x,y);
if (x-y)>0 then writeln('x > y');
if (y-x)>0 then writeln('x < y');
if x=y then writeln('x = y');
end.
begin read(a);
if a>10 then s:=a-5;
if a<=10 theb s:=a+5;
writeln(s);
end.
2) var x,y:integer;
begin
read(x,y);
if (x-y)>0 then writeln('x > y');
if (y-x)>0 then writeln('x < y');
if x=y then writeln('x = y');
end.
Новые вопросы
Українська мова,
2 года назад
Українська література,
2 года назад
Математика,
9 лет назад
Математика,
9 лет назад