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

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

Показать ответ

Ответ:

Crazy2daisy

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.

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

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

Торт123

22.05.2020 14:18

Дана строка: ‘Goodbye’ илиs = ‘Goodbye’, напишите код программы, чтобы на экране была выведена буква у меня сор до завтра и подпишусь...

madik0721

21.01.2023 10:02

Дана строка: ‘Goodbye’ или s = ‘Goodbye’, напишите код программы, чтобы на экране была выведена буква И ПОДПИШУСЬ...

rabota777777ozj6qd

09.12.2020 10:29

Пп Информатика 7 класс обобщение и систематизация основных понятий главы Мультимедиа...

32453

07.09.2020 03:43

Построй на экране с исполнителя Чертёжник квадрат, длину его стороны введи с клавиатуры и рассчитай площадь этого квадрата: использовать Чертёжник алг квадрат нач цел...

ТвойЩенок

02.01.2020 05:38

Напишите программу на языке паскаль. Подсчет количества элементов больше 30...

daimon708

24.06.2021 08:16

1. X:=4; if x 0 then y:=sqr(x); writeln(y) 2. If x 0 then y:=2*x else y:=3*abs(x); writeln(y) 3. Case 5 5 of True:writeln(1); False:writeln(3); end; 4. Case 6 of 2: writeln(0);...

костров1

08.11.2021 11:24

ответьте на вопросы . С меня Практическую часть пожеланию.)...

Roman310399

26.09.2022 06:06

Delphi 7 1. Циклические вычислительные процессы: определение и классификация. Циклические вычислительные процессы с неизвестным числом повторений – оператор Repeat until....

Кисик1705

30.01.2023 09:30

нужна Установив на Windows 8.1 іконки Lumicons і після установки всі іконки пропали остались тільки їх названіе. Незнаю що робить:(Як вернуть іконки назад? ...

Udhudjd

29.04.2023 10:48

нформатика программа скретч...

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

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