Question

Решить задачу с помощью цикла с предусловием 1)Организовать проверку пароля, если пароль верный – написать «Вход в систему разрешен», если пароль не угадан 5 раз - прекратить проверку пароля. 2)Ввести целое число и найти сумму его цифр. Пример: Введите целое число: 1234 Сумма цифр числа 1234 равна 10. 9 класс через pascal прошу!!!

Answer 1

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.

Answer 2

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.

Answer 3

Конечно! Вот решение обоих задач на языке Pascal:

1. Организация проверки пароля с помощью цикла с предусловием:

pascalCopy code
program CheckPassword;

var
  password: string;
  attempts: integer;

begin
  password := 'password';
  attempts := 0;

  while attempts < 5 do
  begin
    writeln('Введите пароль:');
    readln(password);

    if password = 'password' then
    begin
      writeln('Вход в систему разрешен');
      break;
    end
    else
    begin
      writeln('Неверный пароль. Попробуйте еще раз.');
      attempts := attempts + 1;
    end;
  end;

  if attempts = 5 then
    writeln('Превышено количество попыток. Проверка пароля прекращена.');

  readln;
end.

2. Поиск суммы цифр введенного числа:

pascalCopy code
program SumOfDigits;

var
  number, digit, sum: integer;

begin
  writeln('Введите целое число:');
  readln(number);

  sum := 0;

  while number <> 0 do
  begin
    digit := number mod 10;
    sum := sum + digit;
    number := number div 10;
  end;

  writeln('Сумма цифр числа равна ', sum);

  readln;
end.

Обратите внимание, что в Pascal используется оператор writeln для вывода текста на экран, а оператор readln для ввода данных с клавиатуры.