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

Найдите сумму кратных 7 чисел , меньших 100

MELEKLER87 MELEKLER87    2   27.05.2019 17:10    1

Ответы
Aleksandra66611 Aleksandra66611  01.10.2020 12:54
Var s,i:integer;
begin
  for i:=1 to 99 do
  if i mod 7=0 then s:=s+i;
  writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
мем23 мем23  24.09.2019 16:10
Для каждого адреса определите номер сети, номер узла, наибольшее возможное количество компьютеров в сети: 192.168.104.109/30 (объясните как решать)...
лямда1234 лямда1234  28.09.2019 10:50
Сообщение на тему икт в современном мире для 7 класса...
EgorFolt2123121 EgorFolt2123121  28.09.2019 10:50
Переведите двоичное число 110010 в десятичную систему счисления...
Кристина1110373 Кристина1110373  28.09.2019 10:50
Почему нужно использовать только лицензионное программное обеспечение на компьютере?...
san31032009 san31032009  19.09.2019 20:01
Перечислите структуру полного условного оператора...
Маруся203 Маруся203  19.09.2019 20:00
Как выполняется структура условного оператора...
пучкаек пучкаек  19.09.2019 20:00
Перечислите структуру неполного условного оператора...
manechka2007 manechka2007  27.09.2019 21:50
Почему любой язык программирования это формальный язык...
onpapion onpapion  27.09.2019 22:00
Решить в паскале. дано любое трехзначное число. определите его последнюю цифру....
danisimokuvshn danisimokuvshn  27.09.2019 22:00
Всякая ли информация увеличивает знания? почему?...

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