Три однокласника - влад, тимур и юра - встретились через 12 лет после окончания школы. выяснилось, что один из них стал врачом, другой - , а третий - юристом. один полюбил туризм, другой - бег, а стретий - регби. юра сказал, что на туризм ему не хватает времени, хотя его сестра - единственный врач в семье - заядлый турист. врач сказал, что он разделяет увлечение колеги. забавно, но у двоих из друзей в названиях их профессий и услечений не встречается ни одна буква их имён. определите, кто чем любит заниматься в свободное время и у кого какая профессия.
Чтобы восстановить оригинальное программное обеспечение, необходимо скачать последнюю для PS3. Получить ее можно несколькими Самый вариант – установить обновление с игрового диска. Если игра более-менее новая, при запуске она по загрузить апдейт системы. Соглашайтесь и ждите окончания процесса. После этого можно сделать полное восстановление системы. Об этом мы расскажем в конце.
Если диска нет, посетите официальный сайт находится в разделе с обновлениями. Скачайте необходимые файлы, а потом поместите их на обычную флешку. При включении консоли появится сообщение, в котором система обратится к вам с предложением заменить нынешнюю версию ПО на новую.
Последняя версия для PS3 откроет доступ к сервису PSN, через который вы сможете покупать игры и запускать их в онлайн-режиме.
program zzz;
var
max, k, a: integer;
s: string;
begin
assign(input, 'zad_24.txt');
readln(s);
a := 1;
max := 1;
for var i := 2 to length(s) do
if (s[i] = s[i - 1]) and (s[i] = 'C') then
begin
k := k + 1;
if max > i then
max := i;
end
else
max := 1;
writeln(a);
end.
Объяснение:
Циклическую переменную i стоит использовать только в самом for, т. е. она выполняет функцию счетчика.
Я заменил переменную i вне цикла на переменную a.
Что касается ошибки "Параметр цикла for должен описываться в заголовке цикла" - for var i := 2 to length(s) do
Не нужно циклическую переменную указывать глобально в var