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

Question

Информатика

Риммушка

15 апреля, 16:25

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

+1

Ответы (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