Var
i,a:integer;
s:real;
begin
for i:=1000 to 3000-1 do
if (i mod 6=0)and(i mod 10=4)then
begin
write(i,' ');{это чтобы посмотреть на числа, эту строку можно убрать}
s:=s+i;
end;
writeln;
writeln('S= ',S);
end.
<u>// PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
Range(ReadInteger,1,-1).Select(t->1/t).Sum.Println;
end.
<u>Пример</u>
50
4.49920533832942
Егерь Семен, художник Роман, тренер Николай, врач Артур
Pascal
var
a,s : integer;
begin
s := 0;
readln (a);
While a <> 0 do
begin
s := s +a;
readln (a);
end;
writeln (s);
end.
1) s=0+3*2=6
2)s=6+4*2=14
3)s=14+5*224
4)s=24+6*2=36
5)s=36+7*2=50