Введите с клавиатуры число , если оно четное - вопрос №523460810 от permyashkinanap0a88m 22.05.2021 05:07

Question

Информатика: Введите с клавиатуры число , если оно четное , то уменьшить его в 10 раз , если не четное, то возвести в квадрат. паскаль.

permyashkinanap0a88m · Answer

program funct;
uses crt;
var x:integer;
  y:real;
begin
clrscr;
writeln('Enter x:');
readln(x);
if (x mod 2=0) then
begin
  y:=x/10;
end
else
  begin
y:=x*x;
end;
writeln('y=',y);
readln;
end.