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