Прочитать с экрана 30 имен, сосчитать сколько среди них имен Петя.

Замечание-использовать только 3 переменных.

abc

a-текущ имя (строковый)

b-переменная (кол-во имен Петя)

с-переменная (цель-сколько всего имен)

Question

Информатика

Викул

19 сентября, 11:38

Прочитать с экрана 30 имен, сосчитать сколько среди них имен Петя.

Замечание-использовать только 3 переменных.

abc

a-текущ имя (строковый)

b-переменная (кол-во имен Петя)

с-переменная (цель-сколько всего имен)

+4

Ответы (1)

Знаете ответ?

Светуся · Answer 1

Решение на паскале:

var

a: string;

b, c: byte;

begin

b : = 0;

c : = 0;

for c : = 1 to 30 do

begin

readln (a) ;

if a = 'Петя' then b : = b + 1;

end;

write (b) ;

end.