Регистрация
скорпион67
28.08.2021 05:40
Информатика
Есть ответ 👍

Запишите арифметическое выражение на языке паскаль

156
422
Посмотреть ответы 1

Ответы на вопрос:

qrfeq16
qrfeq16
4,4(30 оценок)
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.

Популярно: Информатика