1. Информатика
  2. Написать программу через

Написать программу через repeat. дано натуральное число n> 10. найти первую цифру данного числа

Бобер3009 Бобер3009    2   04.06.2019 21:50    1

Ответы
karamendes1p06wtk karamendes1p06wtk  05.07.2020 16:57
 var n: integer;
begin
 readln(n);
 repeat 
 n:= n div 10;
 until n<10; 
 writeln(n); 
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
aiis17 aiis17  25.07.2019 09:00
Устройство настраивается на одну из программ. проанализируйте и вставьте пропуски: 1 2 урок. 5 10 11 0 д не могу п д ? осень. 72 45 645 24 2000 не могу д д т д ? 12 белый нос сел...
musinalarisa musinalarisa  13.11.2020 11:48
Задание 1 ( ). Сделайте схематический рисунок своего домашнего компьютера. Подпишите его составляющие. Составьте письменно на бланке таблицу, в которой будут перечислены основные...
olenkazyateva olenkazyateva  13.11.2020 11:49
Zadanie 3 Zilustruj działanie procedury PARTITION dla tablicy: A = 〈13, 19, 9, 5, 12, 8, 7, 4, 21, 2, 6, 11〉 Przedstaw, z jaka będzie kolejność elementów umieszczonych w tablicy,...
markasolnce2103 markasolnce2103  13.11.2020 11:49
составить таблицу истинности...
ExploreYT ExploreYT  13.11.2020 11:50
решить. 6 класс 12 лет. не обман......
ayupovailinaozhaxj ayupovailinaozhaxj  13.11.2020 11:58
Абсолютная адресация нужна для указания ссылки на Укажите правильный вариант ответа: именованную ячейку рабочий лист формулу конкретную ячейку...
853692 853692  29.06.2019 00:40
Из каких этапов состоит план создания компьютерной презентации?...
нтпрои нтпрои  29.06.2019 00:40
На c++. нужно решить через потоковый и форматированный ввод-вывод. хотя бы с одной - буду . : рассчитать стоимость поездки на автомобиле на дачу и обратно, если известны расстояние...
Brainsetup Brainsetup  29.06.2019 00:40
Найти паскаль program z232; var operation: byte; a,b: real; function summa(x,y: real): real; begin summa: =a+b end; function raznost(a,b: real): real; begin raznost: =a-b end; function...
MunjaTamilka MunjaTamilka  29.06.2019 00:40
1.укажите лишнее: а) вставка б)изменение начертания в)изменение цвета г)выравнивание 2.текст набранный в текстовом редакторе, храниться на внешнем носителе в виде: а)файла б)таблицы...

Популярные вопросы