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