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); end.
Для выбора водящего в детской игре N человек становятся в круг, после чего произносится считалка. На первом слове считалки указывается на первого человека в кругу, на втором слове – на второго человека и т. д. После N-го человека снова идёт первый человек (все люди в кругу пронумерованы числами от 1 до N, круг зацикливается, после человека с номером N идёт человек с номером 1). Всего в считалке M слов. Определите, на какого человека придётся последнее слово считалки. Программа получает на вход два целых положительных числа. Первое число N – количество людей в кругу. Второе число M – количество слов в считалке. Оба числа не превосходят 109 . Программа должна вывести одно целое число от 1 до N – номер человека в кругу на которого придётся последнее слово считалки.
var N,k,f,M: longint;beginwriteln ('ВВЕДИТЕ КОЛ-ВО ЛЮДЕЙ В ИГРЕ: ');read(N);writeln('ВВЕДИТЕ КОЛ-ВО СЛОВ: ');read(M);K:=M div N ;F:=M-K*N;if f=0 then write ('НОМЕР ЧЕЛОВЕКА, НА КОТОРОГО ПРИДЕТСЯ ПОСЛЕДНЕЕ СЛОВО >> ',N) elsewrite('НОМЕР ЧЕЛОВЕКА, НА КОТОРОГО ПРИДЕТСЯ ПОСЛЕДНЕЕ СЛОВО >> ',F);end.
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);
end.