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

Примеры неопределяемых понятий в: а); б);

👇
Ответ:
0985440357
0985440357
23.06.2020
А)Время
б)элемент
в)рифма
PS:думаю так, нужны ли примеры из алгебры и геометрии?
4,5(42 оценок)
Открыть все ответы
Ответ:
mozya0001mozya
mozya0001mozya
23.06.2020

//Написал простейшую программу для наглядного примера. Суть в том, что ограничено число попыток ввода неправильного пароля

//attempts - количество попыток, counter - счетчик неудачных попыток


const

  attempts = 3;

  password = '12345';

   

var

  counter: integer;

  str: string;

   

begin

  counter := 0;

   

  repeat

     write('Введите пароль: ');

     readln(str);

     

     if not(str = password) then

     begin    

        counter := counter + 1;

        writeln('[неверный пароль] осталось попыток: ', attempts - counter);

        writeln();

     end;

         

     if (counter = attempts) then

     begin

        writeln('Попытки ввода закончились!');

        break;

     end;

   

  until (str = password);

   

  if (str = password) then

     writeln('Вы ввели правильный пароль!');

end.


Как ограничить количество попыток ввода в паскаль?
4,7(67 оценок)
Ответ:
nemkovvlad1
nemkovvlad1
23.06.2020
Var
a:array[1..5] of integer;
i,Max,c,n,f:integer;
 procedure ho;
 begin
       if a[i]>Max then
        begin
         Max:=a[i];
         c:=i;
        end;
 end;

 begin
   for i:=1 to 5 do
     begin
       a[i]:= random(15)+2;
       write(a[i],' ');
     end;
     Max:=a[1];
     c:=1;
     for i:=1 to 5 do
      ho;
      writeln;
      writeln('Максимум: ',max);
       f:=c;
                    if f=1 then
                    begin
                     max:=a[2];
                     for i:=2 to 5 do
                      ho;
                      writeln('Вторичный максимум: ',max);                                            exit;
                    end;       
                           if f<5 then
                      begin
                          Max:=a[f+1];
                          for i:=f+1 to 5 do
                          ho;
                          n:=max;
                       end;
                    if f>1 then
                      begin
                          Max:=a[1];
                          c:=f;
                          for i:=1 to c-1 do
                          ho;
                          if max>n then
                          writeln('Вторичный максимумì: ',max);
                          if max<n then
                          writeln('Вторичный максимум: ',n); 
                                               end;
   end.
4,7(18 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ