1. Информатика
  2. Найти сумму чисел которые делятся

Найти сумму чисел которые делятся на n среди всех трехзначных чисел. (паскаль) ​

Dimoon122 Dimoon122    2   05.03.2021 21:38    18

Ответы
ослвлвллыб ослвлвллыб  05.03.2021 22:00

var i,s:integer;

begin

i:=101;

while i<1000 do

begin

s:=s+i;

i:=i+2

end;

writeln('ответ: ',s)

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
МурррKsKs МурррKsKs  28.08.2019 07:10
Найти сумму всех элементов двумерного массива, больших первого элемента этого массива? язык программирования -- паскаль....
nikitagregorovi nikitagregorovi  28.08.2019 07:20
Y=(1-x^2+5x^4)^2 напишите программу на языке паскаль...
алинтен алинтен  28.08.2019 07:30
Паскаль! дана строка символов, состоящая из слов. заменить в словах слог ба на ро (например, база - роза ). если таких слов нет, то выдать соответствующее текстовое сообщение....
za2ba2wa2 za2ba2wa2  28.08.2019 07:30
Предложите актуальные темы для научно-исследовательской работы по информатике, . интересует информационная безопасность, но совместить это с практической частью сложно....
Anastasia14418 Anastasia14418  28.08.2019 07:40
Программа в pascal. при генератора случайных чисел создать линейный числовой массив состоящий из 15 элементов интервала -10: 10 посчитать количество четных элементов массива,найти...
gnbufa gnbufa  28.08.2019 07:40
Написать программу в паскале для возведения в квадрат если число меньше 3, и деление данного числа на 2 если число больше 5...
AnutaBelova1524 AnutaBelova1524  28.08.2019 07:50
Паскаль! задано слово длины 3n(n- натуральное число). удалить в нем последнюю треть слова, а оставшиеся две трети перевернуть....
Оксана1241 Оксана1241  28.08.2019 07:50
Найти среднее арифметическое целых чисел в типизированном файле (file of integer), разница наибольшей и наименьшей цифр которых меньше 5. если таких чисел нет, то результат- ноль....
НероКорлеоне НероКорлеоне  28.08.2019 07:50
Напишите программу в pascal : какое из чисел больше корень 17 или сумма корня 10 и корня 7. эти числа нужно выразить через b и c...
egorviktorov20 egorviktorov20  28.08.2019 07:50
Склавиатуры вводится 10 целых чисел, найти наибольшее из чисел оканчивающихся на 7...

Популярные вопросы