М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
lenabota1
lenabota1
16.10.2020 08:06 •  Информатика

Дана строка. Найдите и введите на экран целые и вещественные Числа, встречающиеся в строке

👇
Открыть все ответы
Ответ:
puhova365
puhova365
16.10.2020
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.
4,7(98 оценок)
Ответ:
koi4
koi4
16.10.2020
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.
4,8(31 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
AlinaFlowers
AlinaFlowers
04.02.2020
Расшифркйте это дз по информатике XHg1Q1x4NzhceDM1XHgzOVx4NUNceDc4XHgzNVx4MzdceDVDXHg3OFx4MzdceDMwXHg1Q1x4NzhceDM3XHgzMlx4NUNceDc4XHgzNFx4NDRceDVDXHg3OFx4MzZceDQyXHg1Q1x4NzhceDMzXHgzNVx4NUNceDc4XHgzN1x4MzFceDVDXHg3OFx4MzZceDMxXHg1Q1x4NzhceDM3XHg0MVx4NUNceDc4XHgzNVx4MzZceDVDXHg3OFx4MzRceDQ1XHg1Q1x4NzhceDM1XHgzMVx4NUNceDc4XHgzN1x4NDFceDVDXHg3OFx4MzVceDM2XHg1Q1x4NzhceDMzXHgzMFx4NUNceDc4XHgzNVx4NDFceDVDXHg3OFx4MzVceDM2XHg1Q1x4NzhceDM2XHgzNFx4NUNceDc4XHgzN1x4MzdceDVDXHg3OFx4MzZceDMzXHg1Q1x4NzhceDM0XHgzN1x4NUNceDc4XHgzNFx4NDFceDVDXHg3OFx4MzdceDM0XHg1Q1x4NzhceDM0XHg0Nlx4NUNceDc4XHgzNFx4MzhceDVDXHg3OFx4MzVceDM2XHg1Q1x4NzhceDM2XHg0MVx4NUNceDc4XHgzNlx4MzJceDVDXHg3OFx4MzZceDQzXHg1Q1x4NzhceDM1XHgzNlx4NUNceDc4XHgzM1x4MzJceDVDXHg3OFx4MzVceDM5XHg1Q1x4NzhceDMzXHgzMlx4NUNceDc4XHgzM1x4MzFceDVDXHg3OFx4MzVceDM3XHg1Q1x4NzhceDM2XHgzNVx4NUNceDc4XHgzNlx4NDRceDVDXHg3OFx4MzVceDMyXHg1Q1x4NzhceDM0XHgzOFx4NUNceDc4XHgzNFx4NDZceDVDXHg3OFx4MzVceDM3XHg1Q1x4NzhceDM3XHgzMFx4NUNceDc4XHgzNlx4MzhceDVDXHg3OFx4MzZceDM1XHg1Q1x4NzhceDM1XHgzNFx4NUNceDc4XHgzNlx4NDNceDVDXHg3OFx4MzdceDMzXHg1Q1x4NzhceDM1XHgzOVx4NUNceDc4XHgzNlx4NDRceDVDXHg3OFx4MzNceDMxXHg1Q1x4NzhceDM0XHg0Nlx4NUNceDc4XHgzNlx4MzRceDVDXHg3OFx4MzZceDQzXHg1Q1x4NzhceDM3XHgzMFx4NUNceDc4XHgzNFx4MzhceDVDXHg3OFx4MzVceDM2XHg1Q1x4NzhceDM2XHg0NVx4NUNceDc4XHgzNlx4NDNceDVDXHg3OFx4MzRceDQ0XHg1Q1x4NzhceDM0XHg0NFx4NUNceDc4XHgzNlx4NDJceDVDXHg3OFx4MzVceDQxXHg1Q1x4NzhceDMzXHgzM1x4NUNceDc4XHgzNVx4MzlceDVDXHg3OFx4MzVceDM2XHg1Q1x4NzhceDM0XHg0NFx4NUNceDc4XHgzM1x4MzVceDVDXHg3OFx4MzZceDM1XHg1Q1x4NzhceDM2XHg0NFx4NUNceDc4XHgzNVx4MzJceDVDXHg3OFx4MzRceDM4XHg1Q1x4NzhceDM1XHgzMlx4NUNceDc4XHgzNlx4NDFceDVDXHg3OFx4MzRceDMyXHg1Q1x4NzhceDM2XHgzOFx4NUNceDc4XHgzNVx4MzZceDVDXHg3OFx4MzNceDMwXHg1Q1x4NzhceDMzXHgzMVx4NUNceDc4XHgzM1x4MzJceDVDXHg3OFx4MzVceDM5XHg1Q1x4NzhceDMzXHgzMlx4NUNceDc4XHgzM1x4MzVceDVDXHg3OFx4MzRceDQ1XHg1Q1x4NzhceDM2XHgzNFx4NUNceDc4XHgzNVx4MzdceDVDXHg3OFx4MzRceDM2XHg1Q1x4NzhceDM0XHgzOVx4NUNceDc4XHgzNVx4MzVceDVDXHg3OFx4MzZceDQ1XHg1Q1x4NzhceDM1XHgzMlx4NUNceDc4XHgzNlx4MzlceDVDXHg3OFx4MzVceDMxXHg1Q1x4NzhceDM1XHgzNFx4NUNceDc4XHgzM1x4MzBceDVDXHg3OFx4MzNceDM5​...
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ