Var a,b,n:integer; begin writeln('Введите n'); readln(n); for a:=1 to n do begin if (a mod 3=0) then b:=b+1; end; writeln('Количество чисел равняется ',b); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
