1) Медведь в костюме волка; Волк в костюме лисы; Лиса в костюме зайца; Заяц в костюме медведя.
2) Медведь подарил тарелку, Овечка подарила колечко , Рысь подарила подсвечник, а Мышка подарила иголку. Белка и Волк пришли без подарка.
Var sum,i:integer; beginfor i:=1 to 500 do if (i mod 13 =0) then sum:=sum+i;writeln(sum);end.
<span>var
a: array[1..1000] of </span><span>longint</span>;
i,s,n:integer;
Процедуру заполнения напишешь сам, пишу алгоритм нахождения двухзначного числа(Количество чисел это n):
for i:=1 to n do
begin
if (a[i]>9) and (a[i]<100) then
begin
s:=s+1;
end;
end;
Колесо изобрели в дрнвнем мире