Pascal

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

Question

Информатика

Германыч

6 октября, 04:47

Pascal

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

+1

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