Var A,S:integer;
Begin
S:=0;
Repeat
Read(A);
if (A mod 6 = 0)and(A mod 10 = 6) then S:=S+A;
Until A = 0;
Write(S)
End.
Скопировать: Ctrl+C Вставить Ctrl+V
Сначала добовляешь х-сы , получаешь 3x=30.66 :(3)
x=30.66/3=10.22 Это а) б аналогично
б) 96.41x-88.24x+1.83x=0.0202
10x=0.0202 :(10) (чтоб избавится от 10)
x=0.00202
Var g:integer; p:real;
begin
p:=80000000;
g:=2004;
while p<3*80000000 do begin p:=p+p*0.05; g:=g+1; end;
writeln;
writeln('в ',g,' году население увеличится в трое.');
<span>end.</span>