Program chislo; Var a,s:integer; Begin Write (a); Read (a); s:=a div 10; для двузначного s:=a div 100; для трехзначного Writeln ('Первая цифра числа ',s); End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
