- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
uses crt;
var c1,c2,c3,k,s:integer;
begin
clrscr;
s:=0;
for c1:=1 to 9 do
for c2:=0 to 9 do
for c3:=0 to 9 do
k:=c1*100+c2*10+c3+k;
if (k mod 5 =0) then writeln('LOADING...');
else if (k mod 7 = 0) then writeln('LOADING...');
else s:=s+k;
writeln('Obshie symaя=',s);
readln;
end.
TarasB 30.03.2011 11:16 # 0
уныло
Lure Of Chaos 30.03.2011 13:47 # +2
> then writeln('LOADING...');
> 'Obshie symaя='
guest 15.04.2011 09:28 # 0
Vasiliy 30.03.2011 14:00 # 0
SadKo 30.03.2011 19:22 # +1
Lure Of Chaos 30.03.2011 20:23 # 0
bugmenot 30.03.2011 21:41 # 0
Skull 30.03.2011 19:42 # 0
Vasiliy 30.03.2011 20:41 # 0
wiapsy 30.03.2011 22:46 # 0
Что самое ужасное, нашел я этот говнокод на одном форуме, где во всех, абсолютно во всех предлагаемых решениях используется переборка 900 чисел.
guest 01.04.2011 15:41 # 0
потом в else должно быть ++s;
guest 05.04.2011 10:05 # 0
Uchkuma 11.04.2011 14:26 # 0