512Кб = 524288 байт = 4194304 бит
Решение на паскале:
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.
Просто зайди на сайт, специально ведь нк обрезаю название этого сайта...
Следуя закону Мура об удвоение вычислительной мощности процессора за год, у нас получить четверть 100:4=25 лет и получаем что мощность должна увеличиться в раз.