Войти Регистрация Спроси ai-bota

Найти количество чётных чисел от 1 до 100,программа pascal abc

Ответ:

В1и2к3т4о5р6и7я11

11.06.2020 23:08

var i,n:integer;

begin

n:=0;

for i:=1 to 100 do

if (i mod 2 = 0) then inc(n);

writeln(n)

end.

0,0(0 оценок)

Популярные вопросы: Информатика

Glazkovanuriya

29.11.2021 16:03

Ввести с клавиатуры массив из 5 элементов, найти в нем минимальный элемент и его номер....

Karina11111111115

23.05.2021 23:07

Алина набирая текст забыла переключить язык. после того как текст был набран, она случайно нажала некоторую комбинацию клавиш, что к набранного текста по одному из стандартов....

yaroshenkopoli

23.05.2021 23:07

Три поросёнка живут в 3 разных домах. известно что наф наф не живёт в соломенном доме(с), но его дом самый дальний от места обитания волка нифниф не живёт в кирпичном доме(к)...

Зюна

13.05.2020 10:15

Переведите численный масштаб в именованный: 1: 350 1: 35000 1: 5000000 1: 250000 !...

Milana1117464

04.03.2023 06:52

Дан целочисленный двумерный массив a(n,n) n=6. найти среднее элементов побочной диагонали и поставть его на место максимального элемента главной диагонали....

komissar1809

04.03.2023 06:52

Мне , послезавтра контрольная по с ) 1.даны выражения: а={7 3}, b={4=5}, c={2 3}. определите истинность составных высказываний: а) a = c^b, б) avcvb  ø(a^b), в) cvb^a....

Rustam20022017

25.10.2021 07:15

Решить крассворд по информатике 3 класс вопрос: каждый элемент списка 5 букв...

sharunovamaria01

25.10.2021 07:15

Массив заполнен случайным образом 20 числами в интервале от 0 до 100. 1) найти максимальный и минимальный элемент массива, а так же их сумму 2) найти среднее арифметическое...

spartanash

25.10.2021 07:15

Информатика 9 класс. составьте программу, которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 10 и находит количество элементов, которые больше...

krit3

28.10.2022 14:12

Расставьте виды памяти в порядке увеличения быстродействия. регистры, дисковая память, кэш память, оперативная, компьютерная сеть...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку