Кодирование,вдро,река,вено
Var m,m2,m3: integer;
begin
readln(m);
m2:=round(m-0.45*m);
m3:=m+m2;
writeln('1: ',m,', 2: ',m2,', 3: ',m3,', вместе: ',m+m2+m3);
end.
Пример:
20
1: 20, 2: 11, 3: 31, вместе: 62
var f,g:string;
i:integer;
begin
readln(f);
for i:=1 to length(f)-1 do if (f[i+1]='а') then g:=g+f[i];
writeln(g);
g:='';
for i:=2 to length(f) do if (f[i-1]='а') then g:=g+f[i];
writeln(g);
end.
Ответ:
В 1296000 пикселей 1,29 мегапикселей
Объяснение:
1) 11-2=9 9-2=7 7-2=5 5*3=15 15-2=13
ответ: 11121
2) а)1317 (сумма старших разрядов 3+2+8=13, сумма младших разрядов 1+9+7=17)
б)1114 (сумма старших разрядов 1+8+5=14, сумма младших разрядов 3+2+6=11)
3) а) История любви б) Яша юркнул в эллинг