//Pascal ABC.NET v3.1 сборка 1172
Var
n,s,k,i:integer;
begin
readln(n);
for i:=1 to n do
if (n mod i=0) and (i mod 2=0) then
begin
inc(k);
s:=s+i;
end;
writeln('s=',s);
write('k=',k);
end.
Пример ввода:
22
Пример вывода:
s=24
k=2
237 * 1024 * 8 = 1941504 бит
1941504 : 128000 = около 15 сек
Uses crt;
var a,b,c:integer;
S,P:real;
begin
writeln('Ведите a='); readln(a);
writeln('Ведите b='); readln(b);
writeln('Ведите c='); readln(c);
P:=(a*b*c)/2;
S:=sqrt(P*(P-a)*(P-b)*(P-c));
writeln('S=',S);
end.
Program zadacha;var a,a1,a2,a3,a4,a5,a6:integer;beginreadln (a);if (a<189980) or (a>205505)then writeln ('Введите число не меньше 189980 и не превышающее 205505');a1:=a mod 10;a2:=a mod 100 div 10;a3:=a mod 1000 div 100;a4:=a mod 10000 div 1000;a5:=a mod 100000 div 10000;a6:=a div 100000;if (a1=a6) and (a2=a5) and (a3=a4)then writeln ('Счастливое')else writeln ('Несчастивое');end.