Question

даны 3 переменные,составить программу:если все они =;выдает сообщение:переменные=,в противном случае каждую из них увеличь на 10

Answer 1

Program n1;
var a,b,c: real;
begin
readln(a,b,c);
if (a=b) and (a=c) and (c=b)
then writeln('переменные =')
else
begin
a:=a+10;
b:=b+10;
c:=c+10;
end;
end.