Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Сделать данную программу в Pascal ABC на основе if then else.
Мои попытки ниже
------------------------
var a,b,c:real;
begin;
write(Введите 3 числа=);
read(a,b,c);
if (a=b) and (b=c) and (c=a) then writeln(Все числа одинаковы);
if (a<>b) and (b=c) and (c=b) then writeln(2 числа одинаковых);
if (a<>c) and (c=b) and (b=c) then writeln(2 числа одинаковых);
if (b<>c) and (c=a) and (a=c) then writeln(2 числа одинаковых)
end.

Ответ оставил Гость

Var a,b,c:real;
begin;
write(Введите 3 числа = );
read(a,b,c);

writeln;
if (a=b) and (b=c) then writeln(Все числа одинаковы);
if ((a<>b) and (b=c)) or ((a<>c) and (a=b)) or ((b<>c) and (c=a)) then writeln(2 числа одинаковых);
if ((a<>c) and (c<>b) and (a<>b))  then writeln(Нет одинкаовых чисел);

end.