1) Задано а. Вычислить S:

S={a-5, если а>10

a+5, если а<=10

2) Даны два числа x, y. Найти наибольшее число из них (максимум).

Question

Информатика

Епифан

28 мая, 18:16

1) Задано а. Вычислить S:

S={a-5, если а>10

a+5, если а<=10

2) Даны два числа x, y. Найти наибольшее число из них (максимум).

+5

Ответы (1)

Знаете ответ?

Аникитич · Answer 1

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.

1) Задано а. Вычислить S:S={a-5, если а>10a+5, если а<=102) Даны два числа x, y. Найти наибольшее число из них (максимум).

1) Задано а. Вычислить S:

S={a-5, если а>10

a+5, если а<=10

2) Даны два числа x, y. Найти наибольшее число из них (максимум).