Составьте программу которая проверяет равны ли 3 введенных целых числа, и выводит на экран соответствующее сообщение"равны"либо "неравны "
Составьте программу которая проверяет равны ли 3 введенных целых числа, и выводит на экран соответствующее сообщение"равны"либо "неравны "
Гость
Ответ(ы) на вопрос:
Гостьprogram zadacha;
var
a,b,c:integer;
begin
read(a,b,c);
if (a=b)and(b=c) then
write('Равны')
else
write('Не равны')
end.
Гостьvar
a, b: real;
c: boolean; //Чтобы меньше памяти кушало :)
begin
readln(a, b);
if (a = b) then
c := true;
readln(b);
if ((b = a) and c) then
writeln('Равны')
else
writeln('Не равны');
end.
Не нашли ответ?
Похожие вопросы