1. Набрать по образцу следующий текст Стоит в поле теремок-теремок,
Он не низок не высок, не высок.
Как по полю, полю зайка бежит,
У дверей остановился и кричит:
Кто, кто в теремочке живет?
Кто, кто невысоком живет?
Кто в тереме живет?
- Я, мышка-норушка.
- Я, лягушка-квакушка! А ты кто?
- Я зайчик-попрыгайчик!
- Иди к нам жить!
Стоит в поле теремок-теремок,
Он не низок не высок, не высок.
Уж как по полю лягушка бежит,
У дверей остановилась и кричит:
Кто, кто в теремочке живет?
Кто, кто невысоком живет?
Кто в тереме живет?
- Я, мышка-норушка. А ты кто?
- Я лягушка-квакушка!
- Иди ко мне жить!

Стоит в поле теремок-теремок,
Он не низок не высок, не высок.
Как по полю, полю мышка бежит,
У дверей остановилась и пищит:
Кто, кто в теремочке живет?
Кто, кто невысоком живет?
Кто в тереме живет?
Никого в тереме нет. Залезла мышка в теремок, стала жить-поживать – песни распевать.

Стоит в поле теремок-теремок,
Он не низок не высок, не высок.
Уж как по полю лисичка бежит,
У дверей остановилась и кричит:
Кто, кто в теремочке живет?
Кто, кто невысоком живет?
Кто в тереме живет?
- Я, мышка-норушка
- Я, лягушка-квакушка!
- Я, зайчик-попрыгайчик! А ты кто?
- Я лисичка-сестричка!
- Иди к нам жить!
2. С перемещения и удаления фрагментов привести текст в «порядок»
3. Сохранить документ в папке со своей фамилией на рабочем столе («Практическая работа №2»).

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

nastya2737

21.11.2021 20:00

Оператор вывода: write(8,18,25,10) Результат:...

LunaLovegood28

03.11.2022 23:04

Напишите, , программу для турбо паскаль программа для счета символов в...

roma260902

03.11.2022 23:04

Заполните массив 12 случайными целыми числами из промежутка [-10,10]. выведите на экран элементы массива через пробел .найдите сумму элементов массива , находящихся...

erkinsultanov

03.04.2020 13:40

Предложения в которых высказываеться истина...

Darksholnic

03.04.2020 13:40

Заполните массив 15 случайными целыми числами из промежутка [1,20]. выведите на экран элементы массива через 2 пробела .найдите количество элементов массива , равных...

ahun2001ahun

27.05.2020 19:09

Дни недели пронумерованы следующим образом: 1 — понедельник, 2 — вторник, . . ., 6 — суббота, 7 — воскресенье. Дано целое число К, лежащее в диапазоне 1-365, и целое...

strebkov222

22.02.2022 16:56

Создание и редактирование растровых изображений Выбери цифру, соответствующую части окна, предназначенной для рисования растрового изображения....

izzteleuov

02.05.2022 06:29

Что такое 3D-модель? Какие этапы разработки 3D-модели? 3 Какой специальный компьютер для 3D моделирования программы используются? 4 Paint 3D графический редактор для...

Мойурок

16.01.2023 02:03

Дан массив, содержащий 2015 неотрицательных целых чисел. Необходимо найти в этом массиве количество таких элементов, которые равны среднему арифметическому двух элементов,...

A1n2g3e4l5i6n7a87

18.03.2020 06:22

Вычислить ΔН реакции: 4 KClO3(тв) = 3 KClO4(тв) + KCl(тв), используя следующие термохимические данные:...

Ответ:

ffffffffff444

02.03.2023 02:15

Var
    a: array [,] of integer;

begin
    var n := ReadlnInteger('n = ');
    var m := ReadlnInteger('m = ');
    var rand := ReadlnInteger('Для ручного ввода нажмите 0');

    if rand = 0 then begin
        a := new integer[m, n];
        for var i := 0 to m-1 do
            for var j := 0 to n-1 do
                a[i, j] := ReadlnInteger('a[' + i + ',' + j + '] = ');
    end
    else a := MatrixRandom(m, n, 1, 100);
    Println(a);

    var b := ArrGen(n, x -> 1);
    for var i := 0 to m-1 do
        for var j := 0 to n-1 do
            if j mod 2 = 0 then
                b[j] := b[j] * a[i, j];

    b.Where((x, i)-> i mod 2 = 0).SortedDescending().Println();
end.

0,0(0 оценок)

Ответ:

guardian009888

10.06.2022 20:22

Честно, не поняла ваш код вообще. Почему нет цикла? Предлагаю свое решение:
1)Cначала заполняем массив случайными числами от 2 до 5 (включительно)
2)Потом выводим его (Для проверки)
3) Потом считаем оценки. Но сначала нужно обнулить переменные( В самом начале это делали), а то получится кака (:

program N_0547847;
var
  b, c, d, f, i:integer;
  a: array [1..20] of integer;
begin;
randomize;
b:=0; c:=0; d:=0; f:=0;
for i:=1 to 20 do begin
  a[i]:=random(4)+2;
  write(a[i],' '); end;
writeln;
for i:=1 to 20 do begin
  if a[i]=2 then b:=b+1;
  if a[i]=3 then c:=c+1;
  if a[i]=4 then d:=d+1;
  if a[i]=5 then   f:=f+1;
end;
writeln('Двоек: ', b);
writeln('Троек: ', c);
writeln('Четверок: ',d);
writeln('Пятерок: ',f);
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку