tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дано натуральное число.
Дано натуральное число. найдите первую цифру числа. 0
6vyvu
2 12.08.2019 14:10
0
Ответы
djhvh235
04.10.2020 13:40
Var
x,y:integer;
begin
readln (x);
while x>0 do
begin
y:=x mod 10;
x:=x div 10;
end;
writeln ('Первая цифра = ',y);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Katyusha4368
12.05.2020 20:21
Написать программу на языке Paskal. Сторона а первого прямоугольника равна 4 м, а сторона b — 7 м. У каждого следующего прямоугольника сторона а увеличивается на...
leshakonovalov2
15.02.2022 06:40
Что выведет на экране print( привет ) print( 5+4 )print( 6+3 )print( 2 , + , 7 ,sep=)...
raffigaz10
15.02.2022 06:50
Дана блок-схема. начало Ввод a,b R:=3b у М:= 2а у Р:= R+M вывод Р конец Известно, что а = 19; b = -12. ответ: Р- || ответить...
ceneral
15.02.2022 06:52
3.1. Дана программа нахождения суммы нечетных чисел в промежутке от 33 до 45. Заполните B программе недостающие команды на языке программирования Python. S=0 for...
PaymLaim
15.02.2022 06:53
Решите задачу У исполнителя Альфа две команды, которым присвоены номера: 1. прибавь 1 2. умножь на Б (b - неизвестное натуральное число;b 2) Выполняя первую из них,...
Даниилfire
15.02.2022 06:55
Количество элементов, которые больше предыдущего Последовательность состоит из натуральных чисел и завершается числом 0. Определите, сколько элементов этой последовательности...
mishazzzzz
15.02.2022 07:06
Чему равна глубина цвета, если палитра изображения содержит 1024 цвета? Решение: воспользуемся формулой = i = бит ответ: бит...
Transylvania1
15.02.2022 07:09
(b). Design the range for the following outputs from a for loop. a Range Output -1, 0, 1, 2, 3 range(-1, 4, 1) 0, 5, 10, 15, 20, 25...
didlof7
15.02.2022 07:19
НАПИСАТЬ В С++ Создать два двумерных массива из целых (1-100) случайным образом, найти минимальный элемент заданной строки. Вывести на экран его индексы и значение....
Tanya200404
15.02.2022 07:31
Написати програму, яка виведе на екран мінімум з двох дійсних чисел....
Популярные вопросы
Реши уравнение а) а-3 7/15=4 11/20 б) 4,35*(3,04-с)=6,09...
2
Коэффициенты перед формулами окислителя в уравнении реакции горения...
1
Task 5. order the words and write the sentences. 1) (a. a. milne)...
3
Из сказки снежная королева написать характеристики кая и герды...
2
Task 4. these are quotes of well-known writers. who are they?...
2
Построить график функции. 1. постройте график функции y = -2x...
3
Творческое на тему: сравнительный организм дождевого червя и паука....
1
30 выпишите подлежащее 2) молчать больше было нельзя. 3) два сына...
2
53.2 finish the sentences. use l/me/we/ue/you/he/hlm/ehe/her/they/them....
1
Какие объекты расположены на указанных координатах: 1) 60 градусов...
2
x,y:integer;
begin
readln (x);
while x>0 do
begin
y:=x mod 10;
x:=x div 10;
end;
writeln ('Первая цифра = ',y);
end.