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

July 2022 1 10 Report

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

Answers & Comments

Человек2к18 Program ez;var x: integer;beginreadln(x);if x>0 thenbeginx:= x*(2*5);writeln(x);endelse writeln('Число отрицательно');end.

Это в Паскале.

0 votes Thanks 0

Человек2к18 var x: integer;

Человек2к18 begin

Человек2к18 readln(x);

Человек2к18 if x>0 then

Человек2к18 begin

Человек2к18 x:= x*(2*5);

Человек2к18 writeln(x);

Человек2к18 end

Человек2к18 else writeln('Число отрицательно');

Человек2к18 end.

Answers & Comments

Helpful Links

Helpful Social