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

Найти сумму от 100 до 200,кратных 17

Ответ:

StasVelichko

23.05.2020 15:02

var i,s:integer;

Begin

for i:= 100 to 200 do

if i mod 17=0 then s:=s+i;

writeln(s);

End.

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

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

tisochkin123

25.11.2020 00:08

Кумир.заполните массив из 20 чисел с генератора случайных чисел от 1 до 20 и найдите среднее значение элементов массива....

danilpus2016

25.11.2020 00:08

Сколько информации содержится в слове информатика, если в каждом символе 1 байт информации? 1) 11 бит 2) 1024 бита 3) 88 бит 4) 10 байт...

Malayalam

25.11.2020 00:08

Сравните (вставьте знаки , , =) 1024 кб 10 000 бит 2мб 2000 байт 128 бит 16 байт 1 кб 8192 бита...

vano22312231

31.05.2021 14:02

Какой из перечисленных подключения к интернет обеспечивает наибольшие возможности для доступа к информационным ресурсам: а)постоянное соединение по оптоволоконному каналу;...

NekitKrut2007

31.05.2021 14:02

Написать программу для паскаля. 3 сопротивления r1,r2,r3 соединены параллельно.найти общее сопротивление соденинения. написать(наподобие program *что-то* и дальше т.д)...

zrice

08.02.2021 04:44

Язык программирования паскал. дано вещественное число а и целое число n ( 0). вывести 1+а+а3+…аn....

lineage29201682

11.04.2022 14:36

Как построить в программе pascal abc график линейной функции и параболу?...

dum3

14.04.2022 07:04

Написать программу которая вычисляет сумму первых 10 членов арифметической прогрессии если известен её первый член -1 а разность 3 (использовать цикл)...

идинахер89

11.10.2021 04:40

Как убрать функцию клавиатуры когда она меняет мои emoji на свои? пример: я пишу в вк вот так : ] или : о но когда отправляю получается вот так ☺️, как это убрать? 25...

zhasmin777123

21.10.2022 12:56

Назначение программы pinnaclestudio pluus 10?...

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

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