Помогите с заданием, в паскале просто плохо понимаю.
Помогите с заданием, в паскале просто плохо понимаю.
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,c:integer;
begin
writeln('Введите три числа:');
readln(a,b,c);
if (a=b) and (b=c) then writeln('Все 3 числа одинаковые')
else
if (a<>b) and (b<>c) and (a<>c) then writeln('Нет одинаковых')
else writeln('2 числа одинаковых');
end.
Не нашли ответ?
Похожие вопросы