var a:integer; k:integer;
begin
k:=0;
while k<=5 do
begin
write('a='); read (a);
if (a mod 2=0) then
writeln(sqr(a));
k:=k+1;
end;
end.
{
Код программы и скриншот работы в приложениях
Написано на PascalABC.NET
}
1) 1.Y 2.X 3.X 4.W
2) a - не верно, б - верно
3) В троичной системе счисления (2001₃ = 55)
D) набор текста, редактирование текста, форматирование документа, печать документа