Const n=15;
var a,b,c:array[0..n] of integer;
s_a,s_b:string;
i:integer;
Begin
readln(s_a);
readln(s_b);
while length(s_a)<n do s_a:='0'+s_a;
while length(s_b)<n do s_b:='0'+s_b;
for i := n downto 1 do begin
a[i]:=strtoint(s_a[i]);
b[i]:=strtoint(s_b[i]);
c[i]:=c[i]+a[i] + b[i];
c[i-1]:=c[i] div 10;
c[i]:=c[i] mod 10;
end;
writeln;
for i:= 0 to n do write(a[i]);
writeln;
for i:= 0 to n do write(b[i]);
writeln;
for i:= 0 to n do write(c[i]);
End.
Var a,b,c :integer;
begin
writeln('введите число A') ;
readln(A);
writeln('введите число B') ;
readln(B);
writeln('введите число C') ;
readln(C);
S:=(sqr(a)+sqr(b)+sqr(c))/3;
writeln(S);
end.<span>
</span>
Sub aaa()
a = InputBox("A=")
b = InputBox("B=")
c = InputBox("C=")
x = InputBox("x=")
z = x ^ 2 + Abs(b * x - 3 * c) / Log(x ^ 2 + b * c + a)
Cells(1, 1) = z
End Sub
Точность,а то ещё может подойти чёткость.<span><span /></span>
<span>К вашим схемам можно подобрать такие предложения на тему "Наши школьные дела":
</span>
<span>1)
</span>Петя легко решил задачу, Миша не понял
задание.
<span>2) </span>Учитель
попросил помыть доску, Маша вызвалась помочь.
<span>3) </span>Математика
нравится Коле и Диме.
<span>4) </span>Мой
одноклассник играет в шахматы.