Ответы
Ответ дал:
0
var i,k,s:integer;
begin
k:=0;
i:=1;
while k<>23 do
begin;
if i mod 8=5 then
begin;
s:=s+i;
inc(k);
end;
inc(i);
end;
writeln(s);
end.
begin
k:=0;
i:=1;
while k<>23 do
begin;
if i mod 8=5 then
begin;
s:=s+i;
inc(k);
end;
inc(i);
end;
writeln(s);
end.
Ответ дал:
0
Это неверное решение. Нужно найти сумму 23 чисел, удовлетворяющих условию, а не тех из 23, которые удовлетворяют.
Ответ дал:
0
Прошу прощения, голова раскалывается. Сейчас поправлю.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
10 лет назад