25 балов! Дано число если оно четное и входит в интервал [1:20] возвести в квадрат, если нет в куб нужно написать программу на языке паскаля!
Ответ:
program calculator ;
var
A, s, p:Intger;
begin
readln(a);
S:= a div 2;
If s=0 then
If 1 WrteLn(a) ; end. Объяснение: узнаем значение переменной с помощью read затем чему равна s при помощи mod и узнаем четное ли оно или нет, затем входит ли оно в интервал и возводим в квадрат если совпадает если нет то в куб. Извените за частые изменения, стараюсь объяснить по понятней.
WrteLn(a) ;
end.
Объяснение: узнаем значение переменной с помощью read затем чему равна s при помощи mod и узнаем четное ли оно или нет, затем входит ли оно в интервал и возводим в квадрат если совпадает если нет то в куб. Извените за частые изменения, стараюсь объяснить по понятней.