Дано целое число А. Вывести на экран все степени числа 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(x);
end;
end.
Другие вопросы из категории
Задано трехзначное число. Проверить, что заданное число содержит 3 различных цифры. (Составить программу)
второго сообщения?
Информационный объем одного сообщения составляет 0.5 Кбайт, а другого 500 байт. На сколько информационный объем первого сообщения больше объема второго сообщения?
Читайте также
результат
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].
Вывести на экран часть массива входящих в диапазон, двух введенных чисел. Эти два числа будут индексами к тем числам, которые надо вывести.
Вводятся три числа. Вывести на экран число с минимальной суммой цифр.
Помогите пожалуйста в Паскале