В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
youyousiis
youyousiis
04.02.2023 07:24 •  Информатика

1.составить программу на вычисление скорости при равноускоренном движении.Начальная скорость,время,ускорение вводится.формула-v(скорость надо,на завтро надо Писать на Python
2.2. Очень часто при работе с пользователями нам необходимо сохранять информацию о них. Напишите программу, которая получает от пользователя имя, возраст и номер телефона. Сохраните каждый из параметров в отдельную переменную и выведите на экран в виде списка в формате: Название параметра = значение. Например: Имя = Андрей. (для вывода на экран нескольких параметров – нужно переждать их в функцию print через запятую)Писать на питоне.
3.Писать на питоне 3. Среди встроенных функций в питоне есть функция округления round(number, digits), которая принимает число number, которое надо округлить и количество знаков после запятой digits, которые нужно оставить, а возвращает округленное число. Используя ее напишите свою функцию div_with_round, которая получает от пользователя делимое, делитель и количество знаков, до которых необходимо округлить результат. На экран вывести итоговое округленное число.

Показать ответ
Ответ:
EdinorogDog
EdinorogDog
10.12.2021 08:29
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 оценок)
Ответ:
89622356703
89622356703
06.12.2022 22:48
//Pascal ABC.NET v3.0 сборка 1111

Const
 s=5;

Var
 ar:array[1..s] of integer;
 n,m,i:integer;
begin
 writeln('N');
 readln(n);
 writeln('M');
 readln(m);
 writeln('Array:');
 for i:=1 to s do
   readln(ar[i]);
 writeln('First array:');
 for i:=1 to s do
  begin
   write(ar[i]:4);
   if ar[i] div n<>0 then ar[i]:=ar[i]+m;
  end;
 writeln;
 writeln('Final array:');
  for i:=1 to s do
   write(ar[i]:4);
end. 

Пример ввода:
3
3
1
2
3
4
5
Пример вывода:
First array:
   1   2   3   4   5
Final array:
   1   2   6   7   8

//Блок-схема во вложении
Ввести двумерный массив a. все элементы, которые при целочисленном делении на n ненулевое значение,
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота