Определить, делиться ли целое число на 6, если "да", то возвести его в квадрат. |pascal abc| (алгоритмическая конструкция ветвление; принятие решений в программе; полная и сокращенная формы условного оператора; составной оператор и т.д.

oleg1960 oleg1960    3   11.06.2019 03:40    0

Ответы
АлексаФокс АлексаФокс  09.07.2020 08:50
Var  x:integer;
begin 
write('Введите число: '); 
readln(x); 
if x mod 6=0 then  writeln(sqr(x))
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика