помогите вывести 10 вместо 30
тут в конце вывод должен быть 10, а не 30
var
k,i:integer;
begin
readln(i);
k:=0;
for i:= 10 to 99 do begin
if (i mod 3=0) then k:=k+1; end; write(k)
end.
Ответы (1 шт):
Автор решения: Y Sopd
→ Ссылка
Цикл for должен быть до 39 , тогда будет 10
k,i:integer;
begin
readln(i);
k:=0;
for i:= 10 to 39 do begin
if (i mod 3=0) then k:=k+1; end; write(k)
end.