Помогити плииииз:3Даю 40 балов
Напишите программу, которая в последовательности целых чисел находит сумму чётных чисел в диапазоне
от 5 до 25. Программа получает на вход целые числа, количество введённых чисел неизвестно,
последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в
последовательность).
Ответы
Ответ дал:
0
Program n1;
var a,sum: integer;
begin
sum:=0;
readln(a);
while a<>0 do begin
if (a>=5) and (a<=25) and (a mod 2=0) then sum:=sum+a;
readln(a);
end;
writeln(sum);
end.
var a,sum: integer;
begin
sum:=0;
readln(a);
while a<>0 do begin
if (a>=5) and (a<=25) and (a mod 2=0) then sum:=sum+a;
readln(a);
end;
writeln(sum);
end.
Ответ дал:
0
можешь еще решить задачек которые я выложу?Тоже столько же балов:3
Ответ дал:
0
Дам 98 балов:3https://znanija.com/task/31445165
Ответ дал:
0
Программа и результат её выполнения на скриншотах.
Приложения:
![](https://st.uroker.com/files/5e2/5e28c2ea8b3365f49e5a5da2af92fe83.jpg)
![](https://st.uroker.com/files/eb0/eb0d1fa7d2212a803019dee789ba4849.jpg)
Ответ дал:
0
Просто на будущее - есть цикл с постусловием (чтобы не писать два раза readln):
repeat {блок операторов} until {условие};
repeat {блок операторов} until {условие};
Ответ дал:
0
Спасибо) Просто у нас все строго. И если я буду так писать то получу 2)
Ответ дал:
0
Подумают что списала
Ответ дал:
0
У Вас есть железный аргумент - самообразование)
Ответ дал:
0
Ну у меня школа с углубленным изучением информатики. Думаю не прокатит)
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад