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

Question

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

Answer 1

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.

Comments

ахах , а где файл ?

---

а ты что его не видишь??вайл тхт

---

тогда вот так

---

спасибооо

---

спасибооо

---

пожалуйста. как видишь все просто

---

да , а то я не могла разобраться с этим заданием :3