С клавиатуры вводится произвольная последовательность положительных чисел

Если ответ на твой вопрос отсутствует, или он не полный, то рекомендуем найти информацию через поиск на сайте.

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

может быть крик?

решение должно иметь од 20 до 5000

var slovo,simval: string; i,k: integer; begin k: =0; write(‘введите имя и фамилию ‘); readln(slovo); write(‘введите символ ‘); readln(simval); for i: =1 to length(slovo) do begin if slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,’ ‘); end; if k> =1 then writeln(‘да, встречается ‘,k,’ раз, на позиции ‘,i)else writeln(‘нет’); end.

я немножко перевыполнил) от показывает есть симаол или нет, если есть то сколько раз он входит и на какой

Составить программу в паскаль. С клавиатуры вводится произвольная последовательность положительных чисел, за которой следует 0. Определить: 1.Максимальное число в этой последовательности. 2.Количество четных чисел.

Читайте также  Слова в которых есть корень суффикс окончание
Ссылка на основную публикацию
Adblock
detector