Вэлектронную таблицу внесены следующие исходные данные и расчётные формулы а b 1 =b1+1 1 2 =a1+2 2 3 - id240753720220322 от adrinaline 22.03.2022 03:58

Question

Информатика: Вэлектронную таблицу внесены следующие исходные данные и расчётные формулы а b 1 =b1+1 1 2 =a1+2 2 3 =b2-1 ? 4=a3 ? место вопросительных знаков напишите сколько получиться )

adrinaline · Accepted Answer

//Написал простейшую программу для наглядного примера. Суть в том, что ограничено число попыток ввода неправильного пароля

//attempts - количество попыток, counter - счетчик неудачных попыток

const

attempts = 3;

password = '12345';

var

counter: integer;

str: string;

begin

counter := 0;

repeat

write('Введите пароль: ');

readln(str);

if not(str = password) then

begin

counter := counter + 1;

writeln('[неверный пароль] осталось попыток: ', attempts - counter);

writeln();

end;

if (counter = attempts) then

begin

writeln('Попытки ввода закончились!');

break;

end;

until (str = password);

if (str = password) then

writeln('Вы ввели правильный пароль!');

end.

Как ограничить количество попыток ввода в паскаль?

Вэлектронную таблицу внесены следующие исходные данные и расчётные формулы а b 1 =b1+1 1 2 =a1+2 2 3 =b2-1 ? 4=a3 ? место вопросительных знаков напишите сколько получиться )

MOGZ ответил