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

August 2022 1 5 Report

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

Answers & Comments

ЯковПервый Программа на 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.

0 votes Thanks 1

Answers & Comments

Helpful Links

Helpful Social