Leillat
4 год назад
Прочитать с экрана 30 имен, сосчитать Как узнать сколько среди них имен Петя .Замечание-использовать только 3 переменных.abc a-текущ имя(строковый)b-переменная(кол-во имен Петя)с-переменная(цель-Как узнать сколько всего имен)
ОТВЕТЫ
Тодорка
Oct 24, 2020
Решение на паскале:
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.
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.
434
Смежные вопросы: