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

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) пароль в этом коде - "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.

Вот держи! я даже сделал проверку что сторона не меньше нуля. var a,b,c,p : real; begin write('введите длинну стороны а > > > '); readln(a); write('введите длинну стороны b > > > '); readln(b); write('введите длинну стороны c > > > '); readln(c); writeln(''); if (a> 0) and (b> 0) and (c> 0) then begin p: =a+b+c; write('периметр треугольника со сторонами ',a,' , ',b,' , ',c,' равен > > > ',p); end else begin writeln('! '); write('длинна сторон должна быть больше нуля'); end; end.