Написать программу если число чётное то делим на 2 . если ничтое то возводим в квадрат

var a: integer;

begin

readln(a);

if a mod 2=0 then writeln (a/2)

else writeln (sqr(a));

end.

Программа представлена на языке Pascal.

ответ ниже

Объяснение:

Векторная графика представления объектов и изображений (формат описания) в компьютерной графике, основанный на математическом описании элементарных геометрических объектов, обычно называемых примитивами, таких как: точки, линии, сплайны, кривые Безье, круги и окружности, многоугольники.

Растровое изображение (лат. rastrum — грабли) — изображение, представляющее собой сетку (мозаику) пикселей — цветных точек (обычно прямоугольных) на мониторе, бумаге и других отображающих устройствах

Роботтар адамдарды күнделікті жұмыстан босатады", - дейді ғалымдар. "Қашан?"- деп сұрайды қызықты мектеп оқушылары, студенттер және тұтастай алғанда, бірнеше ондаған жылдан кейін жұмыссыз қалудан қорқатын адамдар. Қандай мамандар және жасанды интеллект қаншалықты тез ауыстырылады? Мамандардың болжамына сәйкес, 2024 жылға қарай жасанды интеллект мәтіндерді жақсы аударуды үйренеді, ал 2026 жылға қарай ол мектеп оқушыларына эссе жаза алады. Машинаның қаламынан бестселлерлер 2049 жылға қарай шыға бастайды. Роботтар адамды басқа салаларда да қысады: 10 жылдан кейін компьютерлер жүк машиналарын жүргізе бастайды, 2031 жылға қарай олар сатушыларды алмастырады. 2053 жылға қарай темір хирургтардың жұмысын бастайды.

Объяснение: