Home
О нас
Products
Services
Регистрация
Войти
Поиск
kis791
@kis791
July 2022
1
13
Report
Найти количество четных чисел в последовательности чисел.Последовательность чисел заканчивается 0.Паскаль Помогите пожалуйста
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
hardmad
Var k,x:integer;
begin
readln(x);
k:=0;
while x<>0 do begin
if x mod 2 = 0 then
k:=k+1;
readln(x);
end;
write(k);
readln
end.
3 votes
Thanks 3
kis791
Спасибо большое,только после Readln ; забыл,но не важно
hardmad
Перед end можно не ставить ;
kis791
Ну ок,объясни пожалуйста зачем нужна строчка k:=k+1?
kis791
А,всё до меня дошло,типо k-колво чётных,изначально оно =0, если выполняется это условие while x<>0 do begin
if x mod 2 = 0 then к к добавляется 1?
hardmad
Умничка
×
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
begin
readln(x);
k:=0;
while x<>0 do begin
if x mod 2 = 0 then
k:=k+1;
readln(x);
end;
write(k);
readln
end.
if x mod 2 = 0 then к к добавляется 1?