* N = 800
* N = 2i - формула
* 800 = 2i
9 < i < 10, берем в большую сторону, i = 10 - вес одного кода.
* 320 кодов = 320 * 10 = 3200 бит. Переведем в байты:
3200/8 = 400 байт.
Ответ: 400
Var a: integer;
begin
writeln('Введите порядковый номер: ');
readln(a);
case a of
1: writeln('Мать: 1.1.2017');
2: writeln('Отец: 2.2.2017');
3: writeln('Бабушка: 3.3.2017');
4: writeln('Дедушка: 4.4.2017');
else writeln('Неверно введен порядковый номер. Попробуйте еще раз.');
end;
end.
--------
Даты вводи те, которые тебе нужны. Порядковые номера также можно изменить по собственному усмотрению.
Ответ:
анера -арена
анизрок - корзина
казкюр - рюкзак
руко -
урок
евнса - весна
омркмоу одджь ен тсарешн - мокрому дождь не страшен
Вот программа и её результат!)
Var
r: longint;
begin
readln (r);
if (r mod 5) = 0 then write ('Кратно') else write ('Не кратно');
end.