Найти произведение четных чисел от 0 до n pascal abc
StEInN2
1
29.09.2019 06:50
0
Другие вопросы по теме Информатика
elviracernosazo
18.12.2020 14:23
3десь
18.12.2020 14:23
sonjasonjasonja
18.12.2020 14:24
scfsdfddPenis
18.12.2020 14:25
LizaVeta20071
07.07.2019 17:10
Homchik111
07.07.2019 17:10
trafimozza
07.07.2019 17:10
bogdanzdebskiy
07.07.2019 17:20
Популярные вопросы
- Назовите царства в которых встречаются паразиты. примеры для каждого царства...
3 - 1)лидера партии 2)многопартийность - 3)нелегальный партии- 4)национализм-...
3 - Как закон относится к несовершеннолетним нарушителям...
3 - При взаимодействии железа с хлором получили 0,2 моль хлорида железа (iii)....
1 - Металлическая деталь массой 461.5 г имеет обем 65 см.какова плотность металла?...
3 - Как изменится запас потенциальной энергии деформированного тела при уменьшении...
1 - Ыбырай шығармаларындағы еңбек тақырыбы шығарма жоспарымен...
2 - На конкретном примере расскажите о при стиль организмов к жизни в пустыне....
3 - Фамилии крестьян правдоискателей из поэмы кому на руси жить хорошо просто...
3 - Чем хемосинтез отличается от фотосинтеза? 1) в этом процессе не участвует...
1
program help;
var i,n:integer;
begin
readln(n);
for i := 1 to n do begin
if i mod 2 = 0 then
writeln(i);
end;
end.
*Вводишь число, получаешь все четные числа до него*