Составте программу на Паскале для решения следующей задачи.Введите с клавиатуры 3 числа:А, В и С. Если А и С кратны 5,а В не кратно,то все числа замените и квадратами и выведите результат на экран. Если только В кратно 5,то увеличьте все числа на 10 и выведите результат на экран. Иначе, найдите и выведите среднее арифметическое этих чисел.
Var a,b,c:integer; begin readln(a,b,c); if (a mod 5=0) and (c mod 5=0) and (b mod 5<>0) then writeln(sqr(a),' ',sqr(b),' ',sqr(c)) else if (a mod 5<>0) and (c mod 5<>0) and (b mod 5=0) then writeln(a 10,' ',b 10,' ',c 10) else writeln((a b c)/3); end.
Пример ввода: 15 5 34 Пример вывода: 18
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
