Составте программу на Паскале для решения следующей задачи. Введите с клавиатуры 3 числа: А, В и С. Если А и С кратны 5, а В не кратно, то все числа замените и квадратами и выведите результат на экран. Если только В кратно 5, то увеличьте все числа на 10 и выведите результат на экран. Иначе, найдите и выведите среднее арифметическое этих чисел.

Question

Информатика

Орина

18 января, 16:04

Составте программу на Паскале для решения следующей задачи. Введите с клавиатуры 3 числа: А, В и С. Если А и С кратны 5, а В не кратно, то все числа замените и квадратами и выведите результат на экран. Если только В кратно 5, то увеличьте все числа на 10 и выведите результат на экран. Иначе, найдите и выведите среднее арифметическое этих чисел.

+2

Ответы (1)

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

Артеша · Answer 1

Var

a, b, c: integer;

begin

write ('Введите 3 числа: ') ;

readln (a, b, c) ;

if ((a mod 5) = 0) and ((c mod 5) = 0) and (b mod 5 0)

then print (sqr (a), sqr (b), sqr (c))

else if (b mod 5 = 0) and ((a mod 5) 0) and ((c mod 5) 0) then

print (a+10, b+10, c+10)

else print ((a+b+c) / 3) ;

end.