Вывести на экран все Двухзначные числа от 1 до 100 кратные 5 и найти их сумму

06.04.2011, 10:25. **Показов** 9062. **Ответов** 2

Вывести на экран все Двухзначные числа от 1 до 100 кратные 5 и найти их сумму

Добавлено через 5 минут
Дано целое число N (> 0) Если N-нечетное, то вывести произведение 1 * 3 ...* N.якщо N-четное то вывести то вывести произведение 2 * 4 ...* N.

@Qwark · 06.04.2011, 10:32

Pascal

uses crt;
var
sum,i:integer;
begin
clrscr;
sum:=0;
for i:=10 to 99 do
begin
if i mod 5=0 then
sum:=sum+i;
end;
writeln('Сумма чисел кратных пяти=',sum);
readln;
end.

06.04.2011, 11:09

Списибо

rezya
		1
	Вывести на экран все Двухзначные числа от 1 до 100 кратные 5 и найти их сумму 06.04.2011, 10:25. Показов 9062. Ответов 2 Метки нет (Все метки) Вывести на экран все Двухзначные числа от 1 до 100 кратные 5 и найти их сумму Добавлено через 5 минут Дано целое число N (> 0) Если N-нечетное, то вывести произведение 1 * 3 ...* N.якщо N-четное то вывести то вывести произведение 2 * 4 ...* N.

roma1
	06.04.2011, 11:09	3
	Списибо

Опции темы

Вывести на экран все Двухзначные числа от 1 до 100 кратные 5 и найти их сумму

Решение