Ответ е2)
муравей двигается по полю
Нет таких доказательств. Как можно моделировать в программе, которая предназначена совсем для другого?
Program Pr1;
uses crt;
const n=100;
m=100;
var mas:array[1..n,1..m] of integer;
i,j,l,k,v:integer;
Begin
clrscr;
for j:=1 to m do
for i:=1 to n do begin
randomize;
mas[i,j]:=random(100);
end;
l:=0;v:=0;
for j:=1 to m do
for i:=1 to n do begin
k:=1;
while k<=m do if k=m then k:=k+1
else begin
l:=mas[i,k]+l;
k:=k+1;
end;
if mas[i,j]>l then v:=v+1;
l:=0;
end;
writeln(v);
end.
Скорость передачи = 450 Кбайт / 38 c = 450 * 8 * 1024 бит / 38 c = 97010.52631578948 бит/с
Объем переданных данных = 37 мин * 97010.52631578948 бит/с = 37 * 60 c * 97010.52631578948 бит/с = 215363368.42105263 бит = 215363368.42105263 / 8 / 1024 / 1024 Мбайт = 25.673314144736842 Мбайт
Тогда полных Мбайт = 25
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Введите строку:');
var n:=s.Matches('[A-Za-zА-Яа-яёЁ]').Count;
var m:=s.Length-n;
if m>n then Writeln('В строке букв меньше иных символов')
else
if m<n then Writeln('В строке букв больше иных символов')
else Writeln('В строке поровну букв и иных символов')
end.
<u>Примеры</u>
Введите строку: Это 12+32/16t/7+3.1415 тест
В строке букв меньше иных символов
Введите строку: И это 14+7 равно 21 тоже тест
В строке букв больше иных символов