Материалы за 10.12.2019 » Математикус

Категории

Полезные ссылки

Материалы

Популярное

Информатикус

Информатикус. РАЗНОЕ

О Свислочи

Электронные пособия

Microsoft Excel: теория, практика, контроль

Раскраски онлайн для самых маленьких

Календарь

« Декабрь 2019 »
Пн	Вт	Ср	Чт	Пт	Сб	Вс
	1
2	3	4	5	6	7	8
9	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30	31

Журнал "Математика"

Портфолио ученика

Фестиваль исследовательских и творческих работ учащихся "Портфолио ученика"

Открытый урок

Учительский фестиваль педагогических идей

Счетчик посещений

Опросы

Оцените работу сайта

Интернет с пользой

Знаток » Материалы за 10.12.2019

Найдём сумму

Опуликовал: Томашевич В.
|
Коментариев: 0
|
Просмотров: 598

Найдём сумму всех чисел от 100 до 10000, которые делятся на 20 и 3.

Дата: 10-12-2019, 15:02
Категория: Информатика / Алгоритмы: 1 уровень

Найти сумму

Опуликовал: Волонсевич Я.
|
Коментариев: 0
|
Просмотров: 617

Найдём сумму всех чисел от 100 до 10000, которые делятся на 15 и 29Program2.pas [142 b] (cкачиваний: 1) .
var a,S:integer;
begin
for a:=100 to 10000 do if (a mod 15=0)and(a mod 29=0) then begin s:=s+a;write(a,' '); end;
writeln('S=',s);
end.

Дата: 10-12-2019, 14:59
Категория: Информатика / Алгоритмы: 1 уровень

Найти сумму

Опуликовал: Синица Ю.
|
Коментариев: 0
|
Просмотров: 610

Найдём сумму всех чисел от 1 до 10000, которые делятся на 25 и 17.Program2.pas [142 b] (cкачиваний: 1)
var i,s:integer;
begin
for i:=1 to 10000 do if (i mod 25=0) and (i mod 17=0)then begin s:=s+i;write (i,' '); end;
writeln('s=',s);
end.

Дата: 10-12-2019, 14:59
Категория: Информатика / Алгоритмы: 1 уровень

{links}