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

Создать программу с ограниченными попытками ввода пароля. максимальное количество попыток: 2. ввод пароля осуществить в виде теста с полем ввода ответа. количество вопросов 3. на паскале или делфи.

👇
Ответ:
alena11021
alena11021
21.07.2021
Program Parol;const N=2;var x ,i: integer;beginfor i:=1 to N dobeginwriteln('Неверный пароль');readln(x);end;writeln('Verny parol');if i>N thenwriteln('zapret');end.
4,5(14 оценок)
Открыть все ответы
Ответ:
ОляRu
ОляRu
21.07.2021
Var n,m,osn: integer;
function nmbdec(var n,osn: integer): integer;
var nmb,l,s,k: integer;
begin
  nmb:=0;  s:=0;
  k:=n;  l:=1;
  while k>0 do
  begin
    s:=k mod 10;
    k:=k div 10;
    nmb:=nmb+l*s;
    l:=l*osn;
  end;
  Result:=nmb;
end;
{ конец функции}
begin
  write('число:  ');
  readln(n);
  write('квадрат какого числа:  ');
  readln(m);
  osn:=10;
  while osn>=2 do
  begin
     osn:=osn-1;
    if nmbdec(n,osn)=sqr(nmbdec(m,osn)) then
    begin
      writeln('основание системы = ',osn);
      break;
    end;
  end;
end.
4,4(5 оценок)
Ответ:
dianapopoviychuk
dianapopoviychuk
21.07.2021

1.Клацніть клітинку, щоб вибрати її. Або скористайтеся клавіатурою, щоб перейти до неї й вибрати її.

Щоб вибрати діапазон, виділіть клітинку, а потім натисніть ліву кнопку миші, перетягніть вказівник миші на інші клітинки.

Або виберіть діапазон, натиснувши Shift + клавіша зі стрілкою

Щоб вибрати несуміжні клітинки й діапазони клітинок, виберіть потрібні клітинки, утримуючи натиснутою клавішу Ctrl.

2.Виберіть клітинку або діапазон клітинок.

Натисніть кнопку Копіювати або клавіші Ctrl+C.

Натисніть кнопку Вставити або клавіші Ctrl+V.

Объяснение:

давно здавал тоже

4,5(53 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ