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.
Main(){
int s=0,i=1;
while(i<=100){
s+=i;
i++;
}
printf(s);
}
File:///C:/Users/1/Downloads/adc3d87a4746d34fe0cf6ba31880cdf6.ppt
Program n1;
var k,m,n: integer;
begin
readln(k,m,n);
if (k mod 2<>0) and (m mod 2<>0) and (n mod 2<>0) then write('да') else write('нет');
end.
<span>Если это задача то за 44 секунды. </span>
<span>Если практика, то скорость нестабильная, так что может и за 38 а может и за 60.</span>