Var a,sum,i,ii:integer;
begin
sum:=0;
readln(a);
for i:=1 to 4 do
begin
ii:=a mod 10;
a:=a div 10;
sum:=sum+ii*ii;
end;
writeln(sum);
end.
4.
var r , S : real;
begin
writeln('Введите радиус: ');
readln(r);
S:= pi*r*r;
writeln('Площадь круга: ',S);
end.
10.
var massa, a, b, c : real;
begin
writeln('Введите массы трёх слонов: ');
readln(a,b,c);
massa:=(a+b+c)/3;
writeln('Средняя масса слона: ', massa);
end.
"амнкеь"="камень" вот так вот
K=16=2 в степени 4
V= M*N*a
V= 640*288*4=737280бит=92160 байт=90 кб
ответ 90 кб
Основная мысль притчи-мудрость,долголетие,праведность,любовь к ближнему,страх перед животворными силами природы,воздержание,усердие,самообладание,разумное пользованием богатством,сочувствие к бедным,милосердие,выбор друзей,честность,трудолюбие.