Найти сумму чётных чисел в интервале [от1 до 50] (паскаль)
senan53
2
17.07.2019 18:10
0
Другие вопросы по теме Информатика
GgEz11134
17.03.2021 19:55
DimaVlasov1
21.01.2022 16:02
nataprada
21.01.2022 16:13
olkvochka1707
21.01.2022 16:17
dauletkulova
16.05.2020 00:31
Shakhinya01
30.11.2020 13:01
Mojo228
30.11.2020 13:01
edbaldin2017
30.11.2020 13:01
olgaazov73
27.06.2019 16:20
несамаяумная
07.08.2019 01:40
Популярные вопросы
- Какое занятие было основным в традиционных обществах Востока?...
2 - как читается на английском языке русскими буквами - Of course he s a handball...
3 - УКРАИНСКИЙ ЯЗЫК 1. Прочитай. Порівняй.2. Запиши українські словосполучення.3....
1 - Чи залежить період коливань пружинного маятника від маси тягарця....
3 - Найдите допустимые значения переменной. 3б/2-а. +а/2б. -1. +. 2/с часа уже пытаюсь...
1 - Презентация по истории План презентации: 1 – тема, ФИ учащегося 2 – краткая биографическая...
2 - Як святкують різдво на прикарпатті...
3 - При обжиге сульфида меди(||) выделилось 5,6 л сернистого газа, сколько граммов...
2 - Надо написать есе на тему national cuisine.И на фотографиях есть предложения...
1 - Определить работу, которую совершает грузчик, если он поднимает 50 килограммовый...
2
Begin
s:=0
i:=2
while i <=50 do begin
s:=s+i;
i:=i+2;
end;
writeln(s)
End.
begin
for i:=1 to 50 do
if i mod 2 = 0 then
a:=a+i;
writeln(a);
end.