Даны 3 переменные,составить программу:если все они =;выдает сообщение:переменные=,в...

0 голосов
63 просмотров

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


Информатика (15 баллов) | 63 просмотров
0

на каком языке?

0

паскаль

Дан 1 ответ
0 голосов
Правильный ответ

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.

(149k баллов)