Ответы на вопрос:
var t,k: integer;
begin
t:=50;
k:=10;
While k<1 do begin
t:=t-5;
k:=k-2;
end;
Write(t,' ', k); //50 10
end.
Const n=10; var a: array[1..n] of integer; i,p: integer; begin randomize; for i: =1 to n do begin a[i]: =random(50); write(a[i]: 4); end; writeln; p: =1; for i: =1 to n do if a[i] mod 4 = 0 then p: =p*a[i]; writeln('p = ',p); end. пример: 33 25 25 36 5 17 40 44 17 2 p = 63360
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
znania5306.10.2021 04:01
-
Ksenka351516.04.2023 19:00
-
ВладКрикет26.05.2021 08:09
-
хюрем301.04.2022 00:44
-
umma9515.02.2020 13:46
-
rusleon26.04.2022 13:07
-
YULEMESLEILAA15.06.2023 01:25
-
shishkova60028.10.2022 03:09
-
hmelova14.06.2021 15:50
-
настя2016200318.12.2022 21:44
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.