Программа в паскале где если число больше 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
