Программа в паскале где если число больше 12 то оно возводится в квадрат, в противном случае уменьшается на 37
Программа в паскале где если число больше 12 то оно возводится в квадрат,
в противном случае уменьшается на 37
Гость
Ответ(ы) на вопрос:
Гостьprogram Henry;
var
a,b: integer;
begin
writeln('Введите число: ');
readln(a);
if a >12
then
begin
b:=Sqr(a);
Writeln('Получилось чилсо: ', b);
end
else
begin
b:=a-37;
Writeln('Получилось чилсо: ', b);
end;
end.
Не нашли ответ?
Похожие вопросы