var a, b, c: integer; st : string; begin readln (a); str (a, st); if length (st)<=3 then writeln (0 ,' ton') else begin b:=a div 1000; writeln (b, ' ton'); end; readkey ; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
