Pascal

Составить программу, которая считывает целое число. Если оно четное и положительное, увеличить его в два раза, в противном случае увеличить в 10 раз

Question

Информатика

Леонидка

20 декабря, 01:39

Pascal

Составить программу, которая считывает целое число. Если оно четное и положительное, увеличить его в два раза, в противном случае увеличить в 10 раз

+2

Ответы (1)

Знаешь ответ?

Патрикей · Answer 1

Program p1;

var x: integer;

begin

writeln ('введите число');

readln (x);

if (x mod 2 = 0) and (x > 0) then

x:=x*2

else

x:=x*10;

writeln (x);

end.

PascalСоставить программу, которая считывает целое число. Если оно четное и положительное, увеличить его в два раза, в противном случае увеличить в 10 раз

Pascal

Составить программу, которая считывает целое число. Если оно четное и положительное, увеличить его в два раза, в противном случае увеличить в 10 раз