Задать вопрос
4 сентября, 07:45

ввести 3 числа чётные возвести в квадрат, а не чётные оставить без изменений

+4
Ответы (1)
  1. 4 сентября, 09:05
    0
    Var a, b, c:integer; begin Read (a, b, c) ; If a mod 2=0 thena:=a*a; If b mod 2=0 thenb:=b*b; If c mod 2=0 thenc:=c*c; Writeln (a,' ', b,' ', c) end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «ввести 3 числа чётные возвести в квадрат, а не чётные оставить без изменений ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы