Решение на паскале:
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.
Program cyberforum795718;
var a,b,c,d,f,q:integer;
e:real;
begin
writeln('введите первую цифру');
readln(a);
writeln('введите вторую цифру');
readln(b);
writeln('выберите,что вы хотите сделать с этими числами,1-сложение,2-вычитание,3-умножение,4-деление');
readln(q);
if (q=1) then begin d:=a+b;
writeln('ваш результат',d);end;
if (q=2) then begin f:=a-b;
writeln('ваш результат',f); end;
if (q=3) then begin c:=a*b;
writeln('ваш результат',c);end;
if (q=4) then begin e:=a/b;
writeln('ваш результат',e);end;
end.
если эт Паскаль
Переведём скорость передачи из бит в Кб.
256000 бит/с = 31,25 Кб/с.
Теперь просто умножим скорость на время.
31,25 Кб/с * 15с = <span>468,75 Кб.</span>
Очевидно, что букву "А" с буквой "Б" мы перепутать не можем, так как А состоит только из нулей, а Б только из единиц.
Буква "В" состоит из нулей и единиц, так что, казалось бы, ее можно декодировать неоднозначно, НО. Попробуем это сделать. Предположим, что мы перепутали первый 0 и думаем, что это А. Остаётся число 10. Которое уже никак не декодировать иначе.
Основная мысль притчи-мудрость,долголетие,праведность,любовь к ближнему,страх перед животворными силами природы,воздержание,усердие,самообладание,разумное пользованием богатством,сочувствие к бедным,милосердие,выбор друзей,честность,трудолюбие.