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

программа (паскаль)

Question

Информатика

Ларуня

29 апреля, 20:12

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

программа (паскаль)

+5

Ответы (1)

Знаете ответ на вопрос?

Евномия · Answer 1

Program p;

var a, b, c:integer;

begin writeln ('Введите три числа') ;

readln (a, b, c) ;

if (a mod 2) = 0 then a:=sqr (a) ;

if (b mod 2) = 0 then b:=sqr (b) ;

if (c mod 2) = 0 then c:=sqr (c) ;

writeln (a:5, b:5, c:5) ;

end.

Задача введите 3 числа четные числа возвести в квадрат нечётное оставить без измененийпрограмма (паскаль)

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

программа (паскаль)