Прочитать с экрана 30 имен, сосчитать сколько среди них имен Петя .
Замечание-использовать только 3 переменных.
abc
a-текущ имя(строковый)
b-переменная(кол-во имен Петя)
с-переменная(цель-сколько всего имен)

Решение на паскале: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.