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

Question

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

Answer 1

Программа на Pascal
---------------------------------

Program Test;

Var num, i: integer;

Begin

Write('Введите число: ');
Readln(num);

if (num > 0) then
begin
for i := 1 to 5 do
num := num + 2;

Writeln();
Writeln('Число после увеличения: ', num);
end

else
begin
Writeln();
Writeln('Число не положительно');
end;

End.