ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

Сообщение от Thenno

Код:

program PoraSamomuUchitsya;
var
  i,k:integer;
begin
  k:=0;
  i:=100;
  while i<=1000 do
    begin
      k:=k+i;
      i:=i+25;
    end;
  writeln (k);
end.

Самый оптимальный алгоритм, я думаю.

Ему нужно вообще то, чтобы выводилась сумма элементов делящихся на 25

А ты что сделал? Вот ему писали на делфи https://forum.antichat.ru/showthread.php?p=1753598#post1753598

Вообще не пойму, в чём проблема переделать на паскаль? Делфи это и есть обджек паскаль

Паскаль на компе не стоит, но вот, должно работать:

Код:

program PoraSamomuUchitsya;
var
a:array[1..1000] of integer;
i,s:integer;
begin
for i:=1 to 900 do begin
	a[i]:=99+i;
	if a[i] mod 25=0 then begin
	s:=s+a[i];
	end;
	end;
  writeln (s);
end.