1. Информатика
  2. Составьте программу

Составьте программу вычисления суммы кратных чисел 7 в диапазоне от 1 до 100

MMMOZG MMMOZG    3   08.07.2019 17:20    8

Ответы
yuliasitnikova yuliasitnikova  16.09.2020 18:13
Var
  sum, i : Integer;
Begin
  sum:=0;
  For i:=1 to 100 do If i mod 7 = 0 then sum:=sum+i;
  Writeln(sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
facss facss  12.07.2019 09:30
Скорость передачи данных по некоторому каналу связи равна заняла 1024000бит/c. передача данных через это 5 секунд. информационный объём переданного файла равен: 1) 625кбайт...
anjelikakotiv anjelikakotiv  12.07.2019 09:30
Program priml; var a: integer; m: char; begin a: =0; begin writeln( столица ? ); readln(m); if (m= лондон )or (m= лондон )then a: =a+5 else a: =a; writeln ( ваша оценка ,a);...
Montes776 Montes776  12.07.2019 09:30
Представить число 12610 в двоичной системе счисления....
Артур3009 Артур3009  17.02.2021 19:20
1.переведите число 165 из восьмеричной в десятичную. В07 из шестнадцатиричной в десятичную. С решением. 2.Осуществите арифметические операции в 2 СС - 1010111+111001, 1101*101,...
belka0714 belka0714  03.03.2021 13:24
4. Какие дополнительные блоки можно использовать Если необходимо ввести несколько альтернативных условий​...
anetta3568 anetta3568  03.03.2021 13:24
В 9 Кл мне купят Ноут, чем полезным можно заняться в ноуте? ​...
анаркааа54 анаркааа54  03.03.2021 13:25
1. Дан двумерный массив asd = [[7, 10, 12, 17], [9, 15, 20, 36]]. Определите элемент, который находится по индексу asd[0][3]. 2. Рассмотрите программный код. Напишите результат,...
yyyoooppp yyyoooppp  03.03.2021 13:25
Известны данные о количестве осадков, выпавших за каждый день месяца. Какого числа выпало самое большое количество осадков? Если таких дней несколько, то должна быть найдена...
Kseniya204 Kseniya204  22.02.2021 08:11
5.Вирус поражающий документы называется ТроянФайловый вирусМакровирусЗагрузочный вирус​...
m20m m20m  22.02.2021 08:11
Ведите с клавиатуры значение x , найти значение \(z=2x^4-3x^3+4x^2+6\)...

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