Pascal

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

Question

Информатика

Стеша

22 февраля, 03:02

Pascal

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

+5

Ответы (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 раз