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

Ответы (2)

Муджаммил 13.05.2024 0
1.var k:integer;p, p1:string;begink:=5;write ('Введите пароль: ') ;readln (p) ;while k>=1 dobeginwrite ('Подтвердите пароль: ') ;readln (p1) ;if p=p1 thenbeginwriteln ('Вход в систему разрешен') ;k:=0endelsek:=k-1endend.2.var a, s:integer;beginwrite ('Введите число: ') ;readln (a) ;while a>0 dobegins:=s+a mod 10;a:=a div 10end;write ('Сумма цифр: ', s) ;end.

Афдал 13.05.2024 0
1) Пароль в этом коде - "zn4n1j4". Заменить при необходимости.vari: integer;s: string;begini : = 1;while i < = 5 dobeginreadln (s) ;if s = 'zn4n1j4' thenbeginwriteln ('Вход в систему разрешен') ;exit;end;writeln ('Неверный пароль.') ;end;writeln ('Пароль не был угадан 5 раз.') ;end.2) Используем операцию x mod 10 для получения последней цифры числа и x div 10 для "отбрасывания" последней цифры числа.varx, ans: integer;beginread (x) ;ans : = 0;while x 0 dobeginans : = ans + (x mod 10) ;x : = x div 10;end;writeln (ans) ;end.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ