Ответы на вопрос:
Pascalabc.net 3.4.2, сборка 1843 от 24.10.2018 внимание! если программа не работает, обновите версию!
begin
readinteger('f=').downto(8).where(t-> t mod 14=0).println
end.
f= 137 126 112 98 84 70 56 42 28 14var f,a: integer;
begin
while not(f> 10) do
begin
writeln('f= ');
read(f);
end;
for a: =f to f*8 do
begin
if (a mod 14 =0)
then write(a,' ')
end;
end.
ответ:
var a,i: integer;
begin
a: =1;
for i: =1 to 24 div 3 do
begin
a: =a*2;
writeln(3*i,' - ',a);
end;
end.
результат:
3 - 2
6 - 4
9 - 8
12 - 16
15 - 32
18 - 64
21 - 128
24 - 256
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
EVETS108.05.2021 22:27
-
Foxyinfog20.01.2021 03:54
-
jankirik29.01.2021 17:14
-
vwvwvwvwvwv11.10.2020 16:55
-
курлык3506.05.2022 00:15
-
katrin2000528.05.2022 22:53
-
siylvio03.10.2020 04:15
-
MishaZuev121.03.2022 12:47
-
Alexey200520193706.03.2022 14:48
-
megamozg4228.11.2021 04:48
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.