Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 976 ответов!

Дано целое число А. Вывести на экран все степени числа 5, которые не превышают А. (Программа Pascal ABC)

5-9 класс

LeraRammstein 10 февр. 2015 г., 6:07:48 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
PROXYAGRO
10 февр. 2015 г., 8:06:17 (9 лет назад)

var
A, n: integer;x: real;

begin
read(A);
n := 0;
for n := 1 to A do
begin
x := power(5, n);
if x <= A then
writeln(n);
end;
end.

Ответить

Другие вопросы из категории

Составьте задачу на подобии такой и решите ее:

текст составлен с использованием алфавита мощностью 64 символа и содержит 100 символов. каков информационный объем текста
Помогите, пожалуйста. Я нуб в информатике

Все 4-буквенные слова, составленные из букв С, Л, О, Н записаны в алфавитном порядке и пронумерованы.

Вот начало списка:
1. ЛЛЛЛ
2. ЛЛЛН
3. ЛЛЛО
4. ЛЛЛС
5. ЛЛНЛ
Запишите слово, которое стоит под номером 250.

Примечание: для всех слов, длина которых будет больше полученной комбинации в нужной системе счисления, впереди добавлять незначащие нули и заменять их в ответе на соответствующие нулям буквы. ПОМОГИТЕ ПОЖАЛУЙСТА

1.

Читайте также

Помогите по программе paskal : 1.дано целое число.напишите программу которая уменьшает на 2 модуль этого числа и выводит на экран монитора

результат

2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат

2. Определить, делится ли введенное число "а" на 3. Если делится то вывести на экран "Число делится на 3".Тип переменной определить самостоятельно. При

составлении условия учесть, что если число делится на 3, то то остаток от деления на 3 должен быть равен 0.

3. Дана программа на языке Паскаль.
var a,n,s: integer;
begin
s:=0;
n:=0;
repeat;
write('Введите число ');
readln(a);
s:=s+a;
n:=n+1;
until s>100;
writeln('Количество введенных чисел = ' ,n);
end.
Переписать программу используя цикл While.

4. Вывести на экран массив целых чисел, Состоящий из 15 элементов, значение которого из которых сгенерировано случайным образом из диапазона [20,60].

Дан массив из N элементов(12 элементов), заданный случайным образом от -10 до 10. Вывести на экран этот массив. С клавиатуры вводятся два числа меньше N.

Вывести на экран часть массива входящих в диапазон, двух введенных чисел. Эти два числа будут индексами к тем числам, которые надо вывести.

Вводятся 4 числа. Вывести на экран максимальное

Вводятся три числа. Вывести на экран число с минимальной суммой цифр.

Помогите пожалуйста в Паскале



Вы находитесь на странице вопроса "Дано целое число А. Вывести на экран все степени числа 5, которые не превышают А. (Программа Pascal ABC)", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.