Var a:array[1..4] of integer;
i, sum:integer;
Begin
for i := 1 to 4 do begin
a[i]:= i*i;
sum := sum + a[i];
writeln(a[i]);
end;
writeln(sum);
End.
<span>Скорость передачи данных по локальной сети 37 Mбит в секунду. Ученик скачал игру за 58 минут. Каков объём скачанной информации в Кбайтах? </span>
<span><span>1. Наполнить 7-литровый кувшин</span>
<span>2. Перелить из <span><span>7-литрового кувшина в </span></span><span><span>2-литровый</span></span> 2 литра.</span>
<span>3. Вылить воду из <span><span><span><span>2-литрового</span></span></span></span> кувшина в колодец. </span>
<span>4. Повторить пункты 2 и 3.</span>
<span>Результат: 3 литра воды в <span><span><span><span>7-литровом кувшине (7-2-2=3).</span></span></span></span>
</span></span>
Первый вариант - функциональный, второй - процедурный.
Рекомендую функциональный, потому что процедурный вариант жуткий щиткод и кринж, да и питон сам по себе язык функциональный. Удачи.