Var a,b: integer;var M: array[1..10] of integer;begina:=1;while a<>1000 do beginreadln(a);b:=b+1;if a mod 10 = 5 then M[b]:=a;end;writeln(M[1]+M[2]+M[3]+M[4]+M[5]+M[6]+M[7]+M[8]+M[9]+M[10]);<span>end.</span>
Информация в мире всегда была,просто в каждом веке свои информационные порталы.,свои информаторы.
17+1=18
18+1=19
19+1=20
20+1=21
21+1=22
22*2=44
44+1=45
45*2=90
90+1=91
91*2=182
182*2=364
364*2=728
728+1=729
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
type
Собака=class
public
procedure Голос;
begin
Writeln('Гав!')
end;
end;
// пример вызова
begin
var Тузик:=new Собака;
Тузик.Голос
end.