Задание:
Составьте программу которая по введеному числу с клавиатуры возведет его в квадрат если это данное число будет четным. (пример Program p1, writelnитд)
Решение:
Program p1; var a: real; beginWriteln ('Vvedite chislo'); Read (a); //СчитаываемIf a mod 2=0 then writeln (a*a); //если остаток от делания на 2=0, тогда пишем возведенное в квадрат числоend.
Знаете другой ответ?