tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Найти сумму чисел, кратных
Найти сумму чисел, кратных 3 от 1 до 100.
Reixerrr
1 20.08.2019 14:50
1
Ответы
GretaD
05.10.2020 07:27
Program n1;
var S, i: integer;
begin
S:=0;
for i:=1 to 100 do
if (i mod 3 =0) then S:=S+i;
writeln(S);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
olesazato
01.06.2019 14:50
Pascal с клавиатуры последовательно вводятся 10 чисел найти ср. арифметическое четных чисел...
UGvu
01.06.2019 14:50
Составление таблицы функции y=a³/(a²+x2) для x , принадлежащих отрезку [-1; 1] с шагом 0.1. так как пример цикла типа for должен быть целочисленным , удобнее использовать...
Or003
27.09.2019 13:10
1. максат для реферата по биологии нарисовал изображения цветов. данные изображення хранятся в оперативной памяти. изображение одного цветка требует 10 кб памяти. размер...
Sonya2308
27.09.2019 14:10
На языке программирования python напишите программу, которая определяет, какой круг из трех больше, если известно, что r1 — радиус 1-го круга, r2 — радиус 2-го круга, r3...
клубника25
26.11.2020 19:34
Сурет көшірмесін жасау үшін командасы таңдаймыз...
Yuchvvjv
26.11.2020 19:34
C++ Вычислить сумму четных чисел от 100 до 200 с цикла. И вывестирезультат на экран...
TASHER228YMMlol
26.11.2020 19:33
Выберите верные утверждения: 1) Восприятие одного и того же предмета разными людьми может различаться. 2) Восприятие одного и того же предмета разными людьми всегда одинаково....
ledytyt13
24.04.2019 20:24
Иможно более развернутый ответ составьте планы действий для переливания: как, имея 3 ёмкости 7 + 5+ 4 литра, набрать: а) 12, б) 13, в) 14, г) 15 литров воды?...
настюшка1101
22.10.2020 07:01
Число 71 записанное в 10-й системе счисления во 2-ю...
Razzey
22.10.2020 06:52
Специальные программы разработанные для нанесения вреда компьютеру ...
Популярные вопросы
Найти сходство и различия между изуитскими школами и православными братствами...
3
Чехов ванька написать письмо ване жукову 45...
1
Найти cao молекулярную массу если mr=56...
3
Розвязати ривняння 32/4+б=20 56/х=2*4 р-27=64...
2
Какую роль играет образ пустыни в стихотворении три пальмы...
1
Разделили поровну а мальчикам b мечей. сколько мячей у каждого? 2 класса....
2
Мяч, брошенный вертикально вверх со скоростью 12м/с, упал на землю через...
2
Обьясните как из формулы основания например zn(oh)2 составить оксид надо...
3
Напишите мини сочинение на тему семь раз отмерь-один раз отрежь буду сочинение...
1
Покупатель купил 1 л молока по 25 р. и 3 сырка по 5 р. у него было 50...
2
var S, i: integer;
begin
S:=0;
for i:=1 to 100 do
if (i mod 3 =0) then S:=S+i;
writeln(S);
end.