Даны три переменные a b c. составить алгоритм который если все они равны выдает об этом сообщение, а в противном случае уменьшает их на 5

Question

Информатика

Оксана

20 декабря, 03:49

Даны три переменные a b c. составить алгоритм который если все они равны выдает об этом сообщение, а в противном случае уменьшает их на 5

+1

Ответы (1)

Знаете ответ на вопрос?

Петруха · Answer 1

Var a, b, c: integer;

begin

readln (a, b, c) ;

if (a=b) and (b=c) then writeln ('Все числа равны')

else

begin

a:=a-5; b:=b-5; c:=c-5;

writeln ('a = ', a,' b = ', b,' c = ', c) ;

end;

end.

Пример:

7 5 6

a = 2 b = 0 c = 1