Зимы бывают очень снежными - порой все улицы заметены снегом, и именно поэтому многие люди любят ее: некоторые дети катаются на коньках или играют в снежки.
1)0+2<span><=10</span>
2)1+2<=10
3)2+2<=10
4)3+2<=10
5)4+2<=10
6)5+2<=10
7)6+2<=10
8)7+2<=10
9)8+2<=10
Program Summa;
Uses Crt;
var i,s:integer;
begin
clrscr;
i:=10;s:=0;
write('Двухзначные числа кратные 5: ');
while(i<=50) do
begin
write(i,' ');
s:=s+i;
i:=i+5;
end;
writeln;
writeln('Сумма 10 двухзначных чисел кратных 5: ',s);
readkey;
end.
Код программы:
<em>program</em><em> </em><em>learning</em><em>;</em>
<em>var</em><em> </em><em>a</em><em>,</em><em> </em><em>c</em><em>:</em><em> </em><em>Integer</em><em>;</em>
<em>begin</em>
<em>c</em><em>:</em><em>=</em><em> </em><em>0</em><em>;</em>
<em>readln</em><em>(</em><em>a</em><em>)</em><em>;</em>
<em>while</em><em>(</em><em>a</em><em> </em><em>mod</em><em> </em><em>2</em><em> </em><em>=</em><em> </em><em>0</em><em>)</em>
<em>do</em><em> </em><em>begin</em>
<em>a</em><em>:</em><em>=</em><em> </em><em>a</em><em> </em><em>mod</em><em> </em><em>2</em><em>;</em>
<em>c</em><em>:</em><em>=</em><em> </em><em>c</em><em>+</em><em>1</em><em>;</em>
<em>end</em><em>;</em>
<em>writeln</em><em>(</em><em>c</em><em>)</em><em>;</em>
<em>end</em><em>.</em>
