Var n, f, o: string; a, i: integer;
begin
write('Введите фамилию ');
Readln(f);
write('Введите имя ');
Readln(n);
write('Введите отчество ');
Readln(o);
a := length(n) + length(f) + length(o);
Writeln('Длина имени, фамилии и отчества равна ', a);
Writeln('Инициалы ', f[1], '. ', n[1], '. ', o[1], '. ');
a := 0;
for i := 1 to length(f) do
if f[i] = 'и' then a := a + 1;
Writeln('Количество букв и в фамилии ', a);
<span>end.</span>
Var
i,m,sum:Integer;
Begin
for i:=10 to 99 do
begin
m:=i mod 10;
n:=i div 10;
sum:=m+n;
if (i mod sum = 0) then Writeln(i);
end;
end.
Моделирование - это метод познания, заключающийся в создании и исследовании моделей.
Цели моделирования:
-Понять сущность изучаемого объекта
-Научиться управлять объектом
-Прогнозировать прямые или косвенные последствия
-Решать прикладные задачи
В данном случае имеют место размещения с повторениями. Дано двух элементное множество {буква 1, буква 2}. N объектов можно выбрать
способами, то есть имеем показательное уравнение вида:
. Откуда
.
Ответ: 11 букв
Вывод на печать вещь довольно простая Ctrl+P и сразу идет отправка на печать на принтер по умолчанию
Но часто может выйти не то что хотелось бы, потому перед печатью надо настроить какой результат мы хотим видеть на листе. Самое обычное это отступы, альбомная или портретная, размер бумаги, двусторонняя печать или нет, сколько листов на листе
обычно у каждой программы из которой идет печать есть некоторые настройки перед печатью и еще отдельно есть свойства принтера. Если во всем этом покопаться то часто можно достигнуть желаемого результата
Если же речь идет о профессиональной подготовке к печати то используются программы типа Publisher, Аdobe Illustrator и тп