Паскаль авс! составить программу,определяющую какая буква слова x(первая или последняя) чаще встречается в слове y.

158

232

Посмотреть ответы 2

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

Меньон258

Информатика

4,5(97 оценок)

Var s: string; k1,k2,i: longint; begin read(s); k1 : = 0; k2 : = 0; for i : = 1 to length(s) do begin if (s[i] = s[1]) then inc(k1); if (s[i] = s[length(s)]) then inc(k2); end; if (k1 > k2) then write('первая буква встречается чаще последней буквы.'); if (k1 < k2) then write('последняя буква встречается чаще первой буквы.'); if (k1 = k2) then write('первая и последняя буквы встречаются одинаковое кол-во раз.'); end.

alinayusupova305

Информатика

4,7(26 оценок)

Var a,b,k: integer; begin k: =0; writeln('введите число'); readln(a); repeat if (a mod 10) in [4,8] then k: =k+1; a: =a div 10; until a=0; writeln('количество чисел=',k) end. введите число 24583 количество чисел=2