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

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

Задать свой вопрос
Яна Шабинская
На паскале сойдёт решение?
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.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт