Дано целое число А. Вывести на экран все степени числа 5, которые не превышают А. (Программа Pascal ABC)
5-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 символов. каков информационный объем текста
Помогите, пожалуйста. Я нуб в информатике
Вот начало списка:
1. ЛЛЛЛ
2. ЛЛЛН
3. ЛЛЛО
4. ЛЛЛС
5. ЛЛНЛ
Запишите слово, которое стоит под номером 250.
Примечание: для всех слов, длина которых будет больше полученной комбинации в нужной системе счисления, впереди добавлять незначащие нули и заменять их в ответе на соответствующие нулям буквы. ПОМОГИТЕ ПОЖАЛУЙСТА
Читайте также
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
составлении условия учесть, что если число делится на 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].
Вывести на экран часть массива входящих в диапазон, двух введенных чисел. Эти два числа будут индексами к тем числам, которые надо вывести.
Вводятся три числа. Вывести на экран число с минимальной суммой цифр.
Помогите пожалуйста в Паскале