найти ближайшую к a степень тройки(паскаль)
1-4 класс
|
var a, stepen1, stepen2: longint;
begin
clrscr;
readln(a);
stepen1:=1;
while stepen1<= a do
stepen1:=stepen1*3;
stepen2:=stepen div 3;
if (a-stepen2) >= (stepen1-a) then writeln(stepen1)
else
writeln(stepen2);
end.
или школу закончил ?))
clrscr;longint; Что это за команды ?
clrscr - можеш убрать, это отчиска экран, лонгинт можно засенить на integer
Другие вопросы из категории
Электронный__________ - это набор данных , которые хранятся в ___________ компьютера под определённым _____________.
Данные для справки : данные , документ , свойства , имя , объект , компьютер .
способов взять ровно 485 килограмм товара, не вскрывая ящиков.
мудрец и сколько ему лет?
Читайте также
цу А по строкам.
Паскаль
и обследовать 4 пещеры. За первый день она может найти владения Змея Горыныча, за второй день она сможет обследовать первую или вторую пещеру. Нарисуйте «Дерево решений» и найдите, сколько разных вариантов есть у Кикиморы, чтобы найти владения Змея Горыныча и обследовать пещеры, если за третий день она сможет обследовать только одну пещеру из оставшихся. Успеет ли Кикимора обследовать все пещеры за 3 дня?
помогите написать программу в паскале пожалуйста.
Решить задачи.
1. Дано трёхзначное число. Определить, сколько раз в нём встречается цифра 3.
2. Дано натуральное число. Получить все его делители и найти их сумму.