Var n,sum,sum2,d,ind,i,j:integer; sred :double;
begin
Write('n');
Readln(n);
d:=1;
ind:=3;
sum:=0; sum2:=0;sred:=0;
for i:=0 to ind-1 do
begin
sum:=sum+(n div d) mod 10;
sred:=sum/3;
sum2:=sum2+ sqr((n div d) mod 10);
d:=10*d;
end;
Writeln('suma ',Sum);
Writeln('Sum 2 ',sum2);
writeln('Sred ',sred:0:5);
//Writeln('вывод цифр');
d:=1;
for i:=0 to ind-1 do
begin
writeln((n div d) mod 10);
d:=10*d;
end;
readln;
end.
#include <iostream>
using namespace std;
int main()
{
int a, b;
cin >> a >> b;
double x;
if (a - b < 10)
x = a - b + 6;
else
x = double(a - b) / double(a * b);
cout << x;
return 0;
}
N=int(input())
<span>a= N*4 + 8*(N//2 - 1) </span>
<span>print(a)
</span>Вот, выбирай язык - Питон
На паскале неполное решение отвечает
300*300*32 бит = 300*300*32/8 байт = 360000 байт =
360000/1024 Кбайт ≈ 352 Кбайт