Найти сумму 23 первых натуральных чисел, которые при делении на 8 дают остаток 5. В паскаль

Question

Информатика

Велизар

10 мая, 08:12

Найти сумму 23 первых натуральных чисел, которые при делении на 8 дают остаток 5. В паскаль

+4

Ответы (1)

Знаете ответ?

Герасим · Answer 1

Var i, k, s:integer;

begin

k:=0;

i:=1;

while k23 do

begin;

if i mod 8=5 then

begin;

s:=s+i;

inc (k) ;

end;

inc (i) ;

end;

writeln (s) ;

end.