Найти количество чётных чисел от 1 до 100,программа pascal abc
ratmir10
1
18.05.2019 17:10
1
Другие вопросы по теме Информатика
Lilit66696
26.06.2019 06:00
Edam
11.05.2023 20:01
natalizotowa198
07.05.2023 22:16
3AKBACKA
16.07.2019 03:20
varuchyan
09.07.2019 09:40
huntress26
09.07.2019 09:40
evmenovvlad
09.07.2019 09:40
Nuraika777
05.09.2019 21:23
yxhcycgc
05.09.2019 21:23
Популярные вопросы
- What do you think is more important? put the words and combinations in...
2 - Расположите носители информации в порядке увеличения их ёмкости,исходя...
1 - Какие пословицы о родине ты знаешь? придумай и запиши свою пословицу....
1 - Укакого героя длинный хвост,бирка со знаком ,,плюс,,он с удовольствием...
1 - Чем похожи рассказы любовь к жизни и механик салерно...
1 - Решить ! две одинаковые бочки нужно наполнить водой.в одну бочку вошло...
3 - Улорі великі очі, облямовані темними колами, а поміж очей- біла роздільна...
2 - Вг. при неясных обстоятельствах в ( - название города) погиб, якобы напоровшись...
3 - Сthe weather in britain … warm in july. a) are b) is c) be 7. what is...
3 - Ер созине фразеологизм на казахском...
1
var i,n:integer;
begin
n:=0;
for i:=1 to 100 do
if (i mod 2 = 0) then inc(n);
writeln(n)
end.