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

На координатной плоскости отметьте и пронумеруйте точки, координаты которых приведены на рисунке. Соедините точки в заданной последовательности. Помните, первое число - по оси ОХ, второе - по оси ОY. Подготовь рисунок в тетради на координатной плоскости для проверки учителем.

Отметьте точки

1(2,6), 2(2,8), 3(1,10), 4(2,11), 5(4,8), 6(13,8), 7(15,6), 8(10,6), 9(8,2), 10(5,2), 11(7,6), 12(7,8), 13(6,10), 14(9,10), 15(10,8).

Соедините точки:

1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 - 10 - 11 - 1.

12 - 13 - 14 - 15.
рисунок из них выбрать и сделать
корабль
ключ
самолет

Показать ответ
Ответ:
nik180208mailru
nik180208mailru
11.06.2020 14:36

Имеется программа которая добавляет логин и пароль человека в файл под названием out.txt, теперь требуется программу ''Проверка логина и пароля'', которая совершает проверку логина и пароля, если проверка логин-пароль пройдена успешно, то вывести ''Вход выполнен успешно'', если нет то ''Не удаётся войти, если вы ещё не зарегистрировались...'' нужно нажать какую то клавишу(по вашему желанию) и сделать, так чтобы эта программа закрылась, а программа, которая мной уже написана reg.py, открылась.

Объяснение:

0,0(0 оценок)
Ответ:
lenichk
lenichk
31.03.2020 12:15
Var St: string;
 z:string[10];
 x:string[2];
i,j,k,m: integer;           //новые переменные
Begin
Write('введите строку текста - St');
Readln(St);
k:=0;                       //обнуляем на всякий случай
z:='0123456789';
i:=1;
for j:=1 to length(St) do //начало
 begin;
  for m:=1 to 10 do
   if St[j]=z[m] then inc(k);
 end;
if k=0 then
begin;
 writeln('в тексте нет цифр');
 exit;
end;                              //конец
while i<=length(st)-1 do
begin
x:=copy(st,I,2);
if (x[1]=x[2]) and (pos(x[1],z)<>0) then
begin
delete(st,i,2);
insert('две',st,i);
i:=i+1;
end;
i:=i+1;
end;
writeln('преобразованная строка ', st);
End.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота