<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadlnInteger;
var a0:=ReadlnInteger;
var d:=ReadArrInteger(n-1);
Print(a0);
for var i:=0 to d.Length-1 do begin
a0:=a0+d[i]; Print(a0)
end;
end.
<u>Пример</u>
5
1
1 2 -1 2
1 2 4 3 5
Формулы представлены во вложении
Вроде получилось:
var a,b,s:integer;
begin
write('Числа = ');
for a:=1 to 100 do
begin
b:=a mod 3;
if (b = 0) then
begin
write(a,', ');
s:=s+a;
if((s > 500) and (s<520)) then break;
end;
end;
writeln('Сумма чисел = ', s);
end.
Результат:
Смотри.
икс не кратно 7 записывается так:
x mod 7≠0
пример:
If (x mod 7≠0) then begin
mod это деление нацело, то есть
14 mod 7=0 - 14 делится нацело на 7.
только вместо знака ≠ надо писать знаки
![< >](https://tex.z-dn.net/?f=+%3C++%3E+)
если не сработает, попробуй
![> <](https://tex.z-dn.net/?f=++%3E++%3C+)