Информатика, опубликовано 2018-08-22 18:39:53 by Гость
Составить программу по задаче:Дано целое число, если число трехзначное, то вывести цифры этого числа, иначе вывести текст "число не трехзначное"
Ответ оставил Гость
Var x, l: integer;
begin
readln(x);
l := Trunc(Log10(Abs(x)));
if l = 2 then
writeln (x)
else
writeln(число не трехзначное);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.