М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Tsm2017
Tsm2017
11.05.2023 01:41 •  Информатика

. В от­ве­те за­пи­ши­те по­сле­до­ва­тель­ность букв без за­пя­тых и дру­гих зна­ков препинания.

ответ:

👇
Ответ:
Nikart25
Nikart25
11.05.2023

1 задание

16:8=2

22:2 =11

11-2=9

ищем то слово где 9 символом

и это в Соликамск

4,5(41 оценок)
Открыть все ответы
Ответ:
linochka1083
linochka1083
11.05.2023

===== PascalABC.NET =====

begin

 var (m, n) := ReadInteger2('Число строк и столбцов:');

 var a := MatrRandom(m, n, -99, 99);

 a.Println(4);

 Writeln;

 var vc := ArrGen(n, i -> i);

 var vr := ArrGen(m div 2, i -> 2 * i + 1);

 a.MatrSlice(vr, vc).Println(4)

end.

Замечание: Если компилятор на распознает MatrSlice, следует обновить его версию хотя бы до 3.5.1.2250 от 14.09.19.

Если Вы не имеет такой возможности, используйте альтернативный вариант, но в этом случае будет утрачено "красивое" форматирование результата.

begin

 var (m, n) := ReadInteger2('Число строк и столбцов:');

 var a := MatrRandom(m, n, -99, 99);

 a.Println(4);

 Writeln;

 foreach var i in Range(1, m -1, 2) do

   a.Row(i).Println;

end.


Решить дан двумерный массив целых чисел вывести только четные строки массива сохраняя порядок их сле
Решить дан двумерный массив целых чисел вывести только четные строки массива сохраняя порядок их сле
4,5(42 оценок)
Ответ:
анонім2281104
анонім2281104
11.05.2023

Объяснение:

1.

program line_AB;

uses crt;

var L, xa, xb, ya, yb:real;

begin

WriteLn('Найдем длину отрезка АВ по координатам его крайних точек' );

Writeln('Введите координаты точки A');

Write('x = ');ReadLn(xa);

Write('y = ');ReadLn(ya);

Writeln('Введите координаты точки B');

Write('x = ');ReadLn(xb);

Write('y = ');ReadLn(yb);

L:=sqrt(sqr(xb-xa)+sqr(yb-ya));

Write('Длина отрезка AB равна ', L);

readln;

end.

2.

program MultDrob;

uses crt;

var z, mult:real; i, L:Integer;

begin

Write('Введите Z = ');ReadLn(z);

Write('Введите L = ');ReadLn(l);

mult:=z+5/(10);

for i:=1 to l do

mult:=mult*(z+5/(10+i)) ;

Write('Произведение дробей z+5/[10..L] равно ', mult);

readln;

end.

3.

program MultMass;

uses crt;

var A:array[1..10] of real; mult:real; i:Integer;

begin

Randomize;

for i:=1 to 10 do begin

a[i]:=Random(10);

write(a[i]:7:2) end;

WriteLn;

mult:=1;

for i:=2 to 10 do

if a[i] > a[1] then mult:=mult*a[i] ;

if mult>1 then Write('Произведение элементов болших первого равно ',mult)

else Write('Произведение элементов болших первого равно ' ,0);

readln;

end.

4,8(85 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ