1.
var k:integer;
p,p1:string;
begin
k:=5;
write ('Введите пароль: ');
readln(p);
while k>=1 do
begin
write ('Подтвердите пароль: ');
readln(p1);
if p=p1 then
begin
writeln ('Вход в систему разрешен');
k:=0
end
else
k:=k-1
end
end.
2.
var a,s:integer;
begin
write ('Введите число: ');
readln(a);
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10
end;
write ('Сумма цифр: ',s);
end.
Первый шаг в отношениях между пользователем и программой – это запуск программы пользователем. Затем можно выполнять в программе те действия, ради которых она и была создана.
Объяснение: Рассмотрим запуска программ:
1)Из Главного меню можно запускать программы, которые в нем записаны.
Для примера возьмем стандартные программы. Дело в том, что Windows – не просто операционная система. В ее состав входит множество разнообразных прикладных программ или, как их называют приложений, такие как
калькулятор,графический редактор Paint,текстовые редакторы Блокнот и WordPad,служебные программы по обслуживанию дискаи др.
Стандартные программы в главном меню Windows XP
Эту группу программ называют Стандартные, потому что она входит в состав операционной системы и устанавливается вместе с установкой операционной системы.
Чтобы запустить, например, Калькулятор, надо пройти по маршруту: кнопка Пуск – Программы – Стандартные – название программы (“Калькулятор”).
2) При двойного щелчка по значку программы или по ярлыку на Рабочем столе Windows.
3) Щелчок по значку программы в Панели задач Windows. Например, на рисунке после щелчка по значку будет открыт текстовый редактор MS Word.
4) При команды “Выполнить” в Главном меню Windows.
В открывшемся окне Запуск программы нужно указать открываемый файл, причем можно воспользоваться для этого кнопкой Обзор, которая откроет окно просмотра содержимого дисков и папок. В нем, открывая папки, нужно выделить и открыть запускающий файл программы. По умолчанию во всех папках будут показаны только запускающие и командные файлы, а также ярлыки.
5) Автоматический запуск программ, например:
при начальной загрузке Windows. Для того, чтобы это сделать, следует пройти по маршруту Пуск – Программы – Автозапуск.
Если поместить программы в меню Автозагрузка, то они будут автоматически запущены при начальной загрузке Windows.
при вставке в дисковод CD или DVD диска. При этом автоматически запускается программа, записанная на диске, правда, если автором диска не предусмотрено иное действие.
Иногда для избежания заражения вирусом автоматический запуск компакт-дисков отключают и сначала проверяют диск антивирусом.
по заданному графику. Такую возможность предоставляет встроенная в Windows программа-планировщик.
6) Двойной щелчок по значку или по имени программы в окне “Мой компьютер” или “Проводник”.
7) Двойной щелчок по значку или имени документа, обрабатываемого той или иной программой. Например, если щёлкнуть по значку с буквой «W», запустится программа MS
1) Пароль в этом коде - "zn4n1j4". Заменить при необходимости.
var
i: integer;
s: string;
begin
i := 1;
while i <= 5 do
begin
readln(s);
if s = 'zn4n1j4' then
begin
writeln('Вход в систему разрешен');
exit;
end;
writeln('Неверный пароль.');
end;
writeln('Пароль не был угадан 5 раз.');
end.
2) Используем операцию x mod 10 для получения последней цифры числа и x div 10 для "отбрасывания" последней цифры числа.
var
x, ans: integer;
begin
read(x);
ans := 0;
while x <> 0 do
begin
ans := ans + (x mod 10);
x := x div 10;
end;
writeln(ans);
end.