Программа получает на вход N, почле чего в цикле постепенно обрабатывает все натуральные числа от 1 до N включительно и в ячейку памяти s откладывает их квадраты.
program summa;
uses crt;
var N,a,s,i: integer;
begin
read(N); a:=0; s:=0;
for i:=1 to N do
begin
a:=a+1;
s:=s+(a*a);
end;
writeln(s);
end.
PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018
Внимание! Если программа не работает, обновите версию!
program pascal;
var s, v, r:real;
begin
writeln('ВВедите радиус');
readln(r);
s:=4*3.14*r*r;
v:= 4/3*3.14*r*r;
Writeln('Площадь шара=',s,'Объем шара=',v);
end.
Ну я бы на Питоне сделал бы это так:
<span>n = input()
s = <span>0
</span>for i in n:
s += int(i)
print("Сумма цифр:", s)
Небольшая хитрость. На входе получаем не число, а строку. А дальше каждый символ строки переводим в цифру и суммируем.
</span>
Program Z1;
Var a,b,S:integer;
Begin
Readln(a,b);
S:=a*b;
Writeln(S);
end.