Home
О нас
Products
Services
Регистрация
Войти
Поиск
цикория1
@цикория1
August 2022
1
4
Report
С клавиатуры вводят целое число.Если оно положительное-увеличить его пять раз на два,иначе вывести сообщения,что число не положительное.
Please enter comments
Please enter your name.
Please enter the correct email address.
Agree to
terms of service
You must agree before submitting.
Send
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
×
Report "С клавиатуры вводят целое число.Если оно положительное-увеличить его пять раз на..."
Your name
Email
Reason
-Select Reason-
Pornographic
Defamatory
Illegal/Unlawful
Spam
Other Terms Of Service Violation
File a copyright complaint
Description
Helpful Links
О нас
Политика конфиденциальности
Правила и условия
Copyright
Контакты
Helpful Social
Get monthly updates
Submit
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
---------------------------------
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.