Вывести 1-ую цифру любого числа. (На языке Pascal)
Вывести 1-ую цифру любого числа. (На языке Pascal)
Гость
Ответ(ы) на вопрос:
ГостьPasocialOkss0111055001
ГостьProgram chislo;
Var a,s:integer;
Begin
Write (a);
Read (a);
s:=a div 10; для двузначного
s:=a div 100; для трехзначного
Writeln ('Первая цифра числа ',s);
End.
Не нашли ответ?
Похожие вопросы