Question

Определить, делиться ли целое число на 6, если "да", то возвести его в квадрат.
|Pascal ABC|
(Алгоритмическая конструкция ВЕТВЛЕНИЕ; Принятие решений в программе; Полная и сокращенная формы условного оператора; Составной оператор и т.д.

Answer 1

Var  x:integer;
begin 
write('Введите число: '); 
readln(x); 
if x mod 6=0 then  writeln(sqr(x))
end.