Помогите,всё что сможете!5) С поддержкою repeat напишите программку, которая требует у

Помогите,всё что можете!5) С поддержкою repeat напишите программу, которая просит у вас пароль, к примеру 111. Если пароль правильный, то заполняет все строчки экрана известьем Молодец. Если после пятой пробы пароль все одинаково неверен, выходит из программки. (2 балла)

21) Составьте программку вычисления ступени числа A с естественным показателем N. Записать варианты программы со всеми видами циклов: while, repeat, for. (3 балла)

27) Составьте программу, которая выводит полную запись десятичного числа 42*4*, в которой пропущены две цифры (обозначены *), если знаменито, что данное число кратно 72. (4 балла)

1) Найти все двузначные числа, сумма цифр которых не изменяется при умножении числа на 2,3,4,5,6,7,8,9.

2) Отыскать все трехзначные числа, сумма цифр которых одинакова данному целому числу.

3) Отыскать все трехзначные числа, средняя цифра которых одинакова сумме первой и 2-ой цифр.

4) Отыскать все трехзначные числа, которые можно представить разностью меж квадратом числа, интеллигентного первыми двумя цифрами и квадратом третьей числа.

5) Найти все двузначные числа, сумма квадратов цифр которых делится на 17.

6) Отыскать все трехзначные числа, представимые в виде сумм факториалов собственных цифр.

7) Отыскать двузначное число, владеющее тем свойством, что куб суммы его цифр равен квадрату самого числа.

8) Отыскать двузначное число, одинаковое утроенному творенью его цифр.

9) В каких двузначных числах двойная сумма цифр одинакова их произведению?

10) Можно ли заданное естественное число М представить в виде суммы квадратов 2-ух естественных чисел? Написать программку решения этой задачки.

Задать свой вопрос
1 ответ
Repeat clrscr; WriteLn ('Введите пароль: '); ReadLn (pas); until pas = '1234';
Вера Рахманинова
На мой взор, да и не только, пароль не должен светиться на экране.Я бы пошел таким методом:Код:Uses Crt;...function Password(): string;var ch: char; pas : string;begin pas := ''; repeat if KeyPressed() then begin ch := ReadKey(); if ch = 0 then ch := ReadKey(); if Ord(ch) = 13 then Break; write('*'); pas := pas + ch; end; until false; Password := pas;end;и потом вызывал эту функцию:Код:pas := Password();и выполнял сопоставленье, см. код вышевместоКод:readln(pas);Как-то так ...
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт