2 варианта
var s,i: integer;
begin
s:=0;
i:=3;
while (i<100) do
begin
s:=s+i;
inc(i,3);
end;
writeln('Сумма чисел, которые делятся на 3: ',s);
readln;
end.
var s,i: integer;
begin
s:=0;
for i:=1 to 100 do if (i mod 3 = 0) then s:=s+i;
writeln('Сумма чисел, которые делятся на 3: ',s);
readln;
end.
Выбирайте на свой вкус
нц пока не сверху свободно
закрасить
вправо
кц
нц пока сверху свободно
вправо
кц
нц пока справа свободно
закрасить
вправо
кц
нц пока не справа свободно
закрасить
вниз
кц
нц пока справа свободно
вниз
кц
нц пока не справа свободно
закрасить
вниз
кц
15.2 Решение
var k, n, a, amax: integer;
begin
amax:=0;
readln(n);
for k:=1 to n do
begin
readln(a);
if (a mod 5 = 0) and (a>amax) then
amax:=a;
end;
writeln(amax);
end.
Для проверки правильности работы программы необходимо использовать следующие тесты:
Объяснение:
begin
3.Step(3).TakeWhile(t -> t <= 100).Sum.Println
end.
1683