Найти сумму целых чисел положительных чисел, больших 20, меньших 100 и кратных 3

@id11184493 · Регистрация: 08.12.2009

Найти сумму целых чисел положительных чисел, больших 20, меньших 100 и кратных 3.

@кот Бегемот · 12.12.2009, 01:01

Сообщение от id11184493

Найти сумму целых чисел положительных чисел, больших 20, меньших 100 и кратных 3.

Pascal

var
i:integer;
sum:longint;
for i:=21 to 99 do
if i mod 3=0 then sum:=sum+i;
writeln(sum);
end.

@odip · 12.12.2009, 20:46

a=21
b=99
count=(b-a)/3+1
summa=(a+b)*count/2

@Александр45 · 01.12.2012, 18:34

А вот у меня вопрос , ну первый ответ это понятно , составлена программа , а второй ответ что означает

@id11184493 1 / 0 / 0 Регистрация: 08.12.2009 Сообщений: 6
		1
	Найти сумму целых чисел положительных чисел, больших 20, меньших 100 и кратных 3 12.12.2009, 00:40. Показов 5101. Ответов 3 Метки нет (Все метки) Найти сумму целых чисел положительных чисел, больших 20, меньших 100 и кратных 3. 0

@Александр45 0 / 0 / 0 Регистрация: 18.11.2012 Сообщений: 9
	01.12.2012, 18:34	4
	А вот у меня вопрос , ну первый ответ это понятно , составлена программа , а второй ответ что означает 0

Опции темы