<span>=А1+А2 (арифмитическое сложение)</span>
Program Project1;
var a, P, S, d :real;
begin
readln(d); a:= d/sqrt(2); S:= sqr(a); P:= 4*a; writeln('Сторона: ',a); writeln('Площадь: ',S); writeln('Периметр: ',P);
end.<span>
</span>
<span>
N вводится с клавиатуры
#include<span> <stdio.h>
</span>
int main()
{
int i = 0<span>;
</span> int N<span>;
</span>
scanf("%i", &N)<span>;
</span>
for ( i = 0; i < N; i++ ){
printf ("*")<span>;
</span> }
}</span>
Var
n: int64;
function f(n: int64): int64;
begin
if(n > 0) then f := f(n div 10) + (n mod 10);
end;
begin
readln(n);
write(f(n));
end.