Home
О нас
Products
Services
Регистрация
Войти
Поиск
valeriigorbunov
@valeriigorbunov
June 2022
2
13
Report
ПОМОГИТЕ С ИНФОРМАТИКОЙ!!!
Составить программу, использую цикл while Вывести все четные числа в диапазоне от 1 до 20
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
iowisp3
var a:integer;
begin
a:=
1;
while a<=
20 do
begin
if a mod
2 = 0
then
write(a,
' ');
a:=a+1;
end;
end.
6 votes
Thanks 4
valeriigorbunov
Спасибо)
barvnik80
Можно значительно упростить программу.. записать лишь -
var a:integer
Begin
a=1;
while a<=20 do begin
write(a+1)
a:=a+2;
end;
end.
Без всяких ифок
1 votes
Thanks 0
×
Report "ПОМОГИТЕ С ИНФОРМАТИКОЙ!!! Составить программу, использую цикл while Вывести все..."
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
begin
a:=1;
while a<=20 do
begin
if a mod 2 = 0
then
write(a,' ');
a:=a+1;
end;
end.
var a:integer
Begin
a=1;
while a<=20 do begin
write(a+1)
a:=a+2;
end;
end.
Без всяких ифок