Задать вопрос
24 декабря, 14:10

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

+3
Ответы (1)
  1. 24 декабря, 18:03
    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 числа чётные возвести в квадрат, а не чётные оставить без изменений ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы