Question

25 балов! Дано число если оно четное и входит в интервал [1:20] возвести в квадрат, если нет в куб нужно написать программу на языке паскаля!

Answer 1

Ответ:

program calculator ;

var

A, s, p:Intger;

begin

readln(a);

S:= a div 2;

If s=0 then

If 1<a and a<20 then a:=sqr a else a:=a*a*a

WrteLn(a) ;

end.

Объяснение: узнаем значение переменной с помощью read затем чему равна s при помощи mod и узнаем четное ли оно или нет, затем входит ли оно в интервал и возводим в квадрат если совпадает если нет то в куб. Извените за частые изменения, стараюсь объяснить по понятней.

Answer 2

Для написания программы на языке Паскаль, которая выполняет указанные действия, можно использовать следующий код:

pascalCopy code
program NumberManipulation;

var
  num, result: integer;

begin
  writeln('Введите число:');
  readln(num);

  if (num mod 2 = 0) and (num >= 1) and (num <= 20) then
    result := num * num
  else
    result := num * num * num;

  writeln('Результат: ', result);
end.

Этот код запрашивает у пользователя ввод числа, затем проверяет, является ли оно четным и входит ли в интервал [1:20]. Если число соответствует условиям, оно возводится в квадрат, иначе в куб. Результат выводится на экран.