Program zadacha;
Const n = 10;
Type mas=array[1..n] of integer;
Var s,i,k,d:integer;
m:mas;
Begin
s:=0;
k:=0;
readln(d);
For i:=1 to n do
read(m[i]);
For i:=1 to n do
if m[i]<d then begin
s:=s+m[i];
k:=k+1;
end;
writeln('Сумма чисел < d = ',s,' Колиество чисел < d = ',k);
end. (Это решение для случая если вы вводите сразу весь массив чисел)
Program zadacha;
Const n = 10;
Var s,i,k,d,m:integer;
Begin
s:=0;
k:=0;
readln(d);
for i:=1 to n do begin
readln(m);
if (m < d) then begin
s:=s+m14;
k:=k+1;
end;
end;
writeln('Сумма чисел < d = ',s,' Колиество чисел < d = ',k);
end. (А это решение для того случая когда вы вводите элементы по одному )
begin
writeln ('введи 3-значное число');
readln (a);
if (a>99) and (a<1000) then begin
while a>0 do
begin
s:=s+sqr(a mod 10);
a:=a div 10;
end;
writeln (s);
end else writeln ('Ошибка ввода');
end.
2. var a,s,k:longint;
begin
writeln ('введи 8-значное число');
readln (a);
if (a>9999999) and (a<100000000) then begin
while a>0 do
begin
k:= a mod 10;
s:=s-k*k*k;
a:=a div 10;
end;
writeln (s);
end else writeln ('Ошибка ввода');
end.