Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1)
германия берлин
греция афины
испания мадрид
польша варшава
франция париж
2)
хвалебный
for i : = 1 to length(s) do
begin
res : = res + s[i];
if i mod 2 = 0 then
end;
writeln(res);
i : = pos(" ",s); {ищем первый пробел}
delete(s; i; 1); {удаляем первый пробел}
i : = pos(" ",s); {ищем второй пробел, котрый теперь первый}
writeln(s[i-1]); {выдаем знак который находится перед пробелом}
44100*24*60*2=127008000 бит = 15 мбайт
Популярные вопросы