Var n,i,a,s,f:integer;
begin
write('n = ');
readln(n);
s:=0; f:=0;
for i:=1 to n do
begin
readln(a);
if abs(a) mod 10 = 7
then begin s:=s+a; f:=1; end;
end;
if f=1
then writeln('Сумма нечетных чисел, оканчивающихся на 7 = ',s)
else writeln('среди введенных чисел нет нечетных, оканчивающихся на 7');
end.
Пример:
<span>n = 5
25
-17
71
68
27
Сумма нечетных чисел, оканчивающихся на 7 = 10</span>
var
a:real;
begin
readln (a);
a:=trunc (a); {trunc - это такая функция (уже готовая в самой программе), которая находит целую часть числа}
writeln ('Целая часть числа а равна ',a)
end.
если я правильно понял смысл
Int s = 0;
for(i=5; i<=30; i++){
s+=i;
}
print(s)