В середовищі PascalABC створіть програму, яка виводить на екран усі непарні числа від 1 до 100 та обчислює їх суму. Використайте команду циклу з параметром FOR.
ekarerinazak05
2
23.01.2022 00:33
1
Другие вопросы по теме Информатика
qaz160904
08.04.2021 01:28
emilyrose2001
08.04.2021 02:16
stasyaverh
08.04.2021 02:32
Емсимася
16.05.2021 17:41
Yxxxzy
16.05.2021 17:41
logan9
04.08.2019 08:30
golicinskaya
04.08.2019 08:30
azodanic12
04.08.2019 08:30
Популярные вопросы
- 8000мм= м 8000см= м 8000дм= м 8000км= м...
3 - Школьная летняя практика длилась 45 дней. сколько это полных недель и дней?...
3 - Какое количество информации несет один знак сообщения, если используется 256-символьный...
3 - Фермер пётр трудолюб посадил в теплице огурцы. длина теплицы равна 16 м 50 см,а...
2 - написать сочинение на тему,я через 10 лет стану...
3 - Первый космонавт независимой украины- это...
2 - Выбери правильный ответ: 1.простейшее поглощают бактерии с процесса: а)фагоцитоза...
3 - Поезд массой 2100 тонный, двигаясь прямолинейно, увеличил скорость от 15 м/с до...
1 - Что едят бобры.летом , зимой , осенью , весной....
3 - Одним из промышленного получения кальция является нагревание его оксида с алюминием...
3
Код:
var
i, sum: integer;
begin
sum:=0;
for i:=1 to 100 do begin
if i mod 2 <> 0 then begin
write(i,' ');
inc(sum, i);
end;
end;
writeln;
write('Sum =',sum);
end.