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

Question

Информатика

Акулина

28 января, 02:29

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

+1

Ответы (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.