Информатика: Вывести 1-ую цифру любого числа. (на языке pascal)

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

Показать ответ

Ответ:

Sasha03kms

21.06.2020 17:29

PasocialOkss0111055001

0,0(0 оценок)

Ответ:

Homchik111

21.06.2020 17:29

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 оценок)

Популярные вопросы: Информатика

danyXelper

06.02.2020 16:38

С++. чтение и запись в массивы. как считать информацию (допустим числа через пробел) из textbox и записать в массив? #pragma endregion private: system: : void button4_click(system:...

rusnc

06.02.2020 16:38

Нужно написать программу на delphi: вводится кол-во переменных с клавиатуры на выходе 2 числа: сумма чисел, произведение квадратов. то есть введите кол-во переменных...

dasha5010

09.10.2021 07:22

Какую функцию нужно использовать?...

andriybiguniak2

16.11.2021 00:22

Необходимо найти значение следующего выражения: y=6c−(x+23). Словесно-формульным алгоритм решения этой задачи может быть записан в следующем виде: ввести значения...

kivrosa

27.10.2021 15:45

Використайте словник для збереження інформації про видатну особистість (вченого, письменника, винахідника тощо). Збережіть ім’я, прізвище, століття, в якому народилась...

MiniCreeper55

16.02.2022 01:34

Послушай рассказ учителя и ответь на вапросы...

SASHA123741852

16.02.2022 01:34

718 кило-бат (кб) это много, средне, мало?...

Lisica99

05.12.2020 00:08

ответьте на во по информатике ответьте за 30 минут...

denis040304

03.07.2022 20:06

Автоматическое устройство осуществило перекодировку сообщения , первоначально записанного в коде unicode , в 8 битную кодировку ascii .при этом информационное сообщение...

natlus27

29.11.2021 02:41

Переведите из двоичной в десятичную систему числа 1001 ,10101 ,111001 ,10111101...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку