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

Question

Информатика

Поликарпий

17 августа, 08:11

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

+2

Ответы (1)

Знаете ответ?

Рита · 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.