Информатика, опубликовано 2018-08-22 22:42:48 by Гость
Написать программу через repeat.Дано натуральное число n>10. найти первую цифру данного числа
Ответ оставил Гость
var n: integer;
begin
readln(n);
repeat
n:= n div 10;
until n writeln(n);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.