100 ! ! 1. заполните массив случайными числами в интервале [100,999] и переставьте их по возрастанию средней цифры. 2. введите массив из 5 элементов с клавиатуры и найдите количество элементов, старшая цифра которых равна 8. 3. с клавиатуры вводится предложение, в котором каждые два слова разделены ровно пробелом. определите, сколько слов в этом предложении.
Ответы на вопрос:
1)program pr;
var
a: array [1..100] of integer;
i, temp,n, j: integer;
begin
writeln('введите размер массива');
readln(n);
for i : = 1 to n do
begin
a[i] : = random(100, 999);
write(a[i]: 4);
end;
for i : = 1 to n do
for j : = 1 to n - i do
if ((a[j] div 10) mod 10) > ((a[j + 1] div 10) mod 10) then
begin
temp : = a[j];
a[j] : = a[j + 1];
a[j + 1] : = temp;
end;
writeln;
for i : = 1 to n do
write(a[i]: 4);
end.
2)var a: array [1..5] of integer; i, amount: integer;
begin
read(a[1], a[2], a[3], a[4], a[5]);
amount : = 0;
for i : = 1 to 5 do
begin
while a[i] > = 10 do
begin
a[i] : = a[i] div 10;
end;
if a[i] = 8
then
amount : = amount + 1;
end;
writeln(amount);
end.
3)var i, c1, c2, k: integer;
stroka, slovo: string;
begin
write ('stroka=');
readln(stroka);
k: =0;
stroka: =stroka+' ';
c1: =1;
c2: =1;
for i: =2 to length (stroka) do
if stroka[i] = ' ' then
begin
c2: =i;
slovo: =copy (stroka, c1, c2-c1);
if slovo[length(slovo)]=slovo[1] then
begin
inc (k);
write (slovo,' ');
end;
c1: =c2+1;
end;
writeln;
writeln ('всего слов = ', k) ;
end.
ответ:
3
объяснение:
код написан на delphi/pascal
program task3;
{$apptype console}
uses
sysutils;
const
alpha: set of char = ['a'..'z','а'..'п','р'..'я','a'..'z','а'..'п','р'..'я'];
var
s: string;
i: integer;
wc: integer;
begin
readln(s);
i : = 1; wc : = 0;
repeat
while not (s[i] in alpha) and (i < = length(s)) do inc(i);
if (i < = length(s)) then inc(wc);
while (s[i] in alpha) and (i < = length(s)) do inc(i);
until i > length(s);
writeln('num words -> ',wc);
readln;
end.
Объяснение:
n=int(input())
for row in range(0, n):
for col in range(0, n):
print(row+1, end='')
print('')
![Напиши программу на языка программирования Python. Организуйте вывод данных в прямоугольном виде для](/tpl/images/4845/1638/139e4.jpg)
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
19953525.10.2021 10:52
-
mainura200625.12.2022 20:55
-
frost09042004ozo97y30.11.2022 00:30
-
марина20000805.03.2023 14:57
-
fgoolis5810.04.2020 03:58
-
сельджан208.03.2022 10:35
-
XУЙ22822810.11.2020 16:02
-
kamilatoktorbel04.10.2021 12:49
-
Роннилав16.06.2020 04:42
-
darows16.12.2022 14:51
![Caktus Image](/tpl/img/cactus.png)
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.