tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дано целое число а. вывести
Дано целое число а. вывести на экран все степени числа 5, которые не превышают а. (программа pascal abc)
DanyNeifeld
1 02.06.2019 00:00
2
Ответы
dgafar27oy9omz
02.07.2020 22:29
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
svitlanaholenkp0an3s
11.11.2019 14:35
Решите программу, определите значения a и b после выполнения фрагмента программы: a: =3789; b: =(a mod 1000) + 11; c: =b div 100; a: =(a div 1000) + b; b: = a+c;...
kazan20001202
05.06.2019 13:00
Написать программу в pascal! ! дан массив x(n,m). если первый элемент массива положительный, то найти сумму элементов среди элементов четных строк массива, иначе...
Egoregoryts
25.07.2019 00:30
Четыре друга - андрей, борис, виктор и михаил - играли в футбол и нечаянно попали мячом в куст соседских роз. на вопросы хозяйки розового куста каждый из детей дал...
danyymamaev
28.08.2019 17:00
1)дан массив целых чисел. выяснить, верно, ли что сумма элементов массива есть четное число. 2)дан массив целых чисел. напечатать все элементы, оканчивающиеся нулем....
layreddota2
28.08.2019 17:00
Запиши выражение (16+y)2 на языке паскаль. (при записи ответа используй прописные буквы)....
ynal2001
29.05.2019 19:20
Составить алгоритм и программу подсчитывающую количество меньших чем соседние элементов массива z из 13 чисел. значения элементов массива рассчитать по формуле wsinw,...
alatireva
29.05.2019 19:20
Розставити знаки арифметичних дій так, щоб отримати істинну рівність 1 1 1=10...
CoRoLi07
26.01.2021 19:09
с французским. В нашем классе 12 человек(там для задания) ...
msvladimirovnalena
26.01.2021 19:10
Какой объем при нормальных условиях займет H2S массой 510 грамм...
Вадим1523
26.01.2021 19:10
Точка о перетину діагоналей трапеції A B C D AD і BCоснови AD =15см BC=5см ВО= 4 зн OD...
Популярные вопросы
x²-2-x=0 графическое решение...
3
тому, кто проставит все приставки...
2
C.C.* Put the words in the correct order to make sentences. 1....
2
История легкой атлетики в казахстане...
3
Они на интернет уроке не дают выделять слова теперь!даю 20.сорри...
1
В каких предложениях имена прилагательные в сравнительной и превосходной...
3
Попытайтесь выделить основные направления реформы , о которых...
3
Розкажіть про розвиток робітничого та соціал-демократичного рухів...
1
18495400:308-426*68+(84003-14658):201*459+10563= напишите все...
2
Ребята .Я пишу курсовую работу,на тему Особенности самоотношения...
1
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.