aliosha1337

14.09.2022 15:51

Информатика

Есть ответ 👍

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

291

359

Посмотреть ответы 3

Ответы на вопрос:

Машуля1790

Информатика

4,4(79 оценок)

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.

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.

natalichexova

Информатика

4,8(86 оценок)

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.

girlssss

Информатика

4,8(4 оценок)

Вот держи! я даже сделал проверку что сторона не меньше нуля. 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.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.