Незнайка - 69 + 69 + 147 = 285
Цветик - 143 + 21 = 164
Торопыжка - 113 + 12 = 125
Медуница - 40 + 45 = 85
Begin
for i:=1 to 10 do begin
srzn:=m[i];
end;
srzn:=srzn/100;
end.
K = 0;
while (t > 0){
d = t mod 10;
if(d mod 2 == 0){k++; t = t div 10;}
else {t = t div 10;}
}
t - входное число
Program z1;
var a,b,c:real;
begin
writeln('введите 2 числа');
readln(a,b);
if (a>b) then c:=a/b
else c:=b/a;
writeln(c);
end.
<em>VAR</em>
<em> ind: LongInt;</em>
<em> b: Array [1..10] of Real;</em>
<em>BEGIN</em>
<em> Writeln('Введите 10 чисел (элементы массива):');</em>
<em> for i := 1 to 10 do Read(b[i]);</em>
<em> </em>
<em> Write('Введите индекс эл. массива: ');</em>
<em> Read(ind);</em>
<em> Write(b[ind]);</em>
<em>END.</em>