program raf105;
var a:integer;
begin
write('Введите число: ');
readln(a);
if ((a mod 2)=0) and (a>=1) and (a<=20)
then writeln('Вывод: ',a**2)
else writeln('Вывод: ',a**3);
end.
Язык программирования PascalABC
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program raf105;
var a:integer;
begin
write('Введите число: ');
readln(a);
if ((a mod 2)=0) and (a>=1) and (a<=20)
then writeln('Вывод: ',a**2)
else writeln('Вывод: ',a**3);
end.
Язык программирования PascalABC