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

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

abc

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

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

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

Question

Информатика

Агрипка

20 ноября, 08:03

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

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

abc

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

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

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

+5

Ответы (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.