Вывести 1-ую цифру любого числа. (На языке Pascal)

Question

Информатика

Мануил

26 февраля, 01:10

Вывести 1-ую цифру любого числа. (На языке Pascal)

+1

Ответы (2)

Знаете ответ на вопрос?

Ариша · Answer 1

Ариша 26 февраля, 02:26

0

PasocialOkss0111055001

Анфуса · Answer 2

Program chislo;

Var a, s:integer;

Begin

Write (a) ;

Read (a) ;

s:=a div 10; для двузначного

s:=a div 100; для трехзначного

Writeln ('Первая цифра числа ', s) ;

End.