В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Danich20
Danich20
27.04.2020 08:30 •  Информатика

у чому полягає відміність застосування анімації зміни слайдів та анімації об'єктів?

Показать ответ
Ответ:
Kepka229
Kepka229
22.06.2021 11:38
Var so,sr,c:string;
t,k:integer;
begin;
readln(so);
t:=0;
for i:=1 to length(so) do
sr:=sr+'*';
while t<>6 do
begin;
readln(c);
if length(c)<>1 then
 begin;
  writeln('Только одна буква!');
  continue;
 end;
if pos(c,so)<>0 then
 begin;
 for i:=1 to length(so) do
   if so[i]=c then
   begin;
     delete(sr,i,1);
     insert(c,sr,i);
   end;
 writeln(sr);
 writeln('Осталось ',6-t,' попыток');
 end
 else
 begin;
 writeln(sr);
 inc(t);
 writeln('Осталось ',6-t,' попыток');
 end;
 if so=sr then break;
end;
if so=sr then writeln('Вы выиграли') else writeln('Вы проиграли');
end.
0,0(0 оценок)
Ответ:
maksboris2002
maksboris2002
18.01.2021 01:34
Var so,sr,c:string;
t,k:integer;
begin;
readln(so);
t:=0;
for i:=1 to length(so) do
sr:=sr+'*';
while t<>6 do
begin;
readln(c);
if length(c)<>1 then
 begin;
  writeln('Только одна буква!');
  continue;
 end;
if pos(c,so)<>0 then
 begin;
 for i:=1 to length(so) do
   if so[i]=c then
   begin;
     delete(sr,i,1);
     insert(c,sr,i);
   end;
 writeln(sr);
 writeln('Осталось ',6-t,' попыток');
 end
 else
 begin;
 writeln(sr);
 inc(t);
 writeln('Осталось ',6-t,' попыток');
 end;
 if so=sr then break;
end;
if so=sr then writeln('Вы выиграли') else writeln('Вы проиграли');
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота