Задание указано некоректно. Надеюсь, вы имели в виду, сколько раз в заданное число можно вместить 7,то есть, сколько целых раз можно поделить на 7.
Код:
program school7;
Var a:Integer;
begin
Write('Введите число>> ');
ReadLn(a);
Write('В число ', a, ' цифра 7 вмещается ', int(a/7), ' раз(а)');
end.
Актуальность состоит в том, что вирусы тормозят компьютер, т к отслеживают все ваши действия, запоминает пароли и т д. Борьба с вирусами спасает наши конфиденциальную информацию. Но вирусы развиваются, они находят новые лазейки в защите компьютера, поэтому нам очень важно все время бороться с ними.
1 бит т.к красных и черных в колоде одинаковое кол-во.
В лучший ответ пожалуйста, 2 до отличника не хватает
Например, можно так:
Repeat
<Действия>
Until <Условие>
Пример:
Repeat
Write('Хочу домой');
Readln(s)
Until s='иди'
Здесь будет всё время выходить "Хочу домой" и предлагаться ввод ответа, пока не будет введено "иди".
Аутентификация-это процесс подлинности чего-либо.
Переданное по сети в открытом виде,плохо,так как не защиты от перехвата!