Даны целочисленные значения A и B. Если A=B вывести у=1. Если AВ вывести на экран y=3. (через паскаль)

Question

Информатика

Максимильяныч

Сегодня, 00:09

Даны целочисленные значения A и B. Если A=B вывести у=1. Если AВ вывести на экран y=3. (через паскаль)

+4

Ответы (1)

Знаете ответ на вопрос?

Анастасьич · Answer 1

Var a, b:integer;

begin

write ('a = ') ; readln (a) ;

write ('b = ') ; readln (b) ;

if a=b then writeln ('y=1') else writeln ('y=3') ;

end.

Пример:

a = 5

b = 8

y=3