tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать программу в pascal,
Написать программу в pascal, которая бы решала : дано целое число a> 1. найдите наименьшое целое неотрицательное q, при котором 5^q> a.
meskov
3 09.08.2019 17:10
2
Ответы
jfjjthvhhcj
04.10.2020 07:47
Var a,q:integer;
begin
readln(a);
for q:=1 to a do
if power(5,q)>a then
begin
write(q);
break;
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Tema228328
26.09.2019 04:50
Написать алгоритм и программу решения следуa длина прямоугольника а см а ширина на 5 см меньше найти периметр...
justdoit5
26.09.2019 04:50
Дана последовательность из n произвольных целых чисел. написать программу, которая определяет, сколько в этой последовательности отрицательных чисел, кратных 7 (использовать...
ирммри
26.09.2019 04:50
Как узнать 1 ,2 ,3 цифру в 6-знач числе на языке питон и отдельно 4,5,6 цифру и узнать суму каждой пары из 3 цифр...
goooooooooj
26.09.2019 04:50
Какое число будет выведено на экран в результате выполнения фрагмента программы? a: =1; repeat a: =a+4; until a 10; write(a)...
duekf
25.09.2019 21:20
Цветное ( с палитрой 256 цветов ) растровое графическое изображения имеет размер 64x32 точек . какой объём памяти в кбайтах займёт это изображение?...
Korolevanet
25.09.2019 21:10
Сколько информации несет сообщение о том, что угадано число в диапазоне целых чисел от 1 до 120?...
Bata2003
10.07.2019 11:10
Сформировать массив из случайных двузначных чисел разделив этот массив на два массива в один все чётные в другой не чётные....
Ronnor
05.09.2019 04:00
Все что написано, напечатано на любом языке...
Еннтпшдь
18.10.2021 17:12
Напишіть як русичі боролися із монголами. чи змогли вони перемогти...
averinael2013
18.10.2021 17:13
3. Найдите значение выражения...
Популярные вопросы
Заказал посылку из китая в связи с вспышкой каронгвируса в китае смогу ли...
3
Сделайте анализ стихотворения тарковского «рифма» сказать по правде, мы уста...
2
найдите биссектрису прямого угла прямоугольного треугольника с катетами 1...
2
Вычислите сколько атомов содержится в 96 г магния mg...
1
Исследовать функцию и построить график y=2x^3-3x^2+1...
3
При каком значении b уравнения будут равносильными: 4у - 8 = 20 и у+ 3в =...
1
50 нужен целостный анализ текста «великий поэт» антона ратникова....
2
Сравнительная характеристика западно-сибирского и восточно-сибирского районов»...
3
Для порції газу c2h4 обєм якого 1,12 л обчислітб...
1
Кому нужен проект за 9 класс делаю на заказ, 500р, все честно, сделала уже...
1
begin
readln(a);
for q:=1 to a do
if power(5,q)>a then
begin
write(q);
break;
end;
end.