Даны два целых числа. Написать программу, которая - вопрос №11618971 от Razin2015 16.07.2020 23:52

Question

Информатика: Даны два целых числа. Написать программу, которая определяет их равенство. Если числа равны, то программа должна вывести фразу «числа одинаковые», если не равны, то «числа разные». Для решения используйте полное ветвление (IF … then … else…)

Razin2015 · Answer

program ky;

var

a, b: integer;

bool: boolean;

begin

readln(a);

readln(b);

bool := true;

begin

if a = b then

writeln('числа одинаковые') ;

end;

if a < b then

writeln('числа разные') ;

end.