Введите с клавиатуры три числа: a, b, c. Если все они равны, то первое увеличьте в 10 раз, второе уменьшите в 10 раз, а третье увеличьте на 10 и выведите результаты на экран. Если равны только первое и последнее, то увеличьте все числа на 100 и выведите результаты. Иначе, найдите и выведите удвоенную сумму этих чисел.

Question

Информатика

Агриппична

21 сентября, 01:34

Введите с клавиатуры три числа: a, b, c. Если все они равны, то первое увеличьте в 10 раз, второе уменьшите в 10 раз, а третье увеличьте на 10 и выведите результаты на экран. Если равны только первое и последнее, то увеличьте все числа на 100 и выведите результаты. Иначе, найдите и выведите удвоенную сумму этих чисел.

+3

Ответы (1)

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

Ионя · Answer 1

VAR a, b, c: integer;

begin

writeln ('Введите числа') ;

readln (a, b, c) ;

if (a = b) and (a = c) then begin

writeln (a*10) ;

writeln (b/10) ;

writeln (a+10) ;

end

else if (a = c) then begin

writeln (a+100) ;

writeln (b+100) ;

writeln (c+100) ;

end

else

writeln (2 * (a+b+c)) ;

end.