Помогите написать программу на паскале абс

Ввести последовательность символов, заканчивающуюся точкой и определить, каких букв больше, 'h' или 'H'

Question

Информатика

Марлена

26 мая, 03:27

Помогите написать программу на паскале абс

Ввести последовательность символов, заканчивающуюся точкой и определить, каких букв больше, 'h' или 'H'

+1

Ответы (1)

Знаете ответ на вопрос?

Артемка · Answer 1

Var

c:char;

fc, sc:integer;

begin

while c '.' do

begin

read (c) ;

if c = 'H' then

inc (fc) ;

if c = 'h' then

inc (sc) ;

end;

if fc > sc then

writeln ('H больше') ;

if fc < sc then

writeln ('h больше') ;

if fc = sc then

writeln ('Одинаково') ;

end.

Помогите написать программу на паскале абсВвести последовательность символов, заканчивающуюся точкой и определить, каких букв больше, 'h' или 'H'

Помогите написать программу на паскале абс

Ввести последовательность символов, заканчивающуюся точкой и определить, каких букв больше, 'h' или 'H'