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

Question

Информатика

Пашата

31 декабря, 11:41

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

+3

Ответы (2)

Знаете ответ?

Павлина · Answer 1

Program chislo;

Var a, s:integer;

Begin

Write (a) ;

Read (a) ;

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

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

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

End.

Минодора · Answer 2

Минодора 31 декабря, 12:48

0

PasocialOkss0111055001