Program n1;
var i,sum: integer;
begin
sum:=0;
for i:=100 to 999 do if i mod 47=43 then sum:=sum+i;
write(sum);
end.
Вот и ответ к вопросу о <span>басне Крылова " Волк и ягненок"</span>
Привет)
Дано
мощность алфавита = 128
кол-во символов = 80000
Решение
128 =
следовательно вес 1 символа = 7 бит
7 * 80000 = 560000 бит
переводим в байты
560000/8 = 70000 байт
переводим в Кбайты
70000/1024 = 68,3 Кбайт
Дроздов Петр
Борисов Влад
Козин Леонид
Истомин Олег
Степанов Николай
Program abc;var<span> i, j: byte;</span><span> arr1, arr2: array [1..5] of array [1..5] of integer;</span><span> arr: array[1..25] of integer;</span>begin<span> for i := 1 to 25 do</span><span> begin</span><span> arr[i] := i;</span><span> end;</span><span> writeln('array1:');</span><span> for i := 1 to 5 do</span><span> begin</span><span> for j := 1 to 5 do</span><span> begin</span><span> arr1[i][j] := arr[(i - 1) * 5 + j];</span><span> write(' ', arr1[i][j], ' ');</span><span> end;</span><span> writeln();</span><span> end;</span><span> writeln('array2:');</span><span> for i := 1 to 5 do</span><span> begin</span><span> for j := 1 to 5 do</span><span> begin</span><span> arr2[i][j] := arr1[j][i];</span><span> write(' ', arr2[i][j], ' ');</span><span> end;</span><span> writeln();</span><span> end;</span><span>end.</span>