Составьте программу ввода с клавиатуры массива целых чисел a[1..10] и вывода на экран элементов массива кратные 3.
154
248
Ответы на вопрос:
Program p1; var i: integer; a: array[1..10] of integer; begin for i: =1 to 10 do begin writeln('введите ',i,' число: '); read(a[i]); end; for i: =1 to 10 do if (a[i] mod 3)=0 then writeln('число: ',a[i]); end.
===== PascalABC.NET =====
begin
var s := 'В траве сидел кузнечик совсем как огуречик'.ToWords;
WriteAllLines('test1.txt', s);
var St := new Stack<string>;
foreach var w in s do
St.Push(w);
s := St.ToArray;
WriteAllLines('test2.txt', s)
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
тигр18624.08.2021 06:02
-
czar1516.05.2022 23:58
-
set1701.01.2023 03:15
-
lisnyakmashenk22.02.2023 04:16
-
zuldzbeysengaz17.11.2020 09:32
-
Anonim22333201.09.2022 03:16
-
Dote822818.04.2021 12:13
-
alina0612220.02.2023 23:19
-
Ptigran24.05.2021 21:34
-
пипканегра30.11.2021 19:49
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.