Paketo18
10.02.2023 20:46

1.выполнить трассировку данного фрагмента программыa=3+8*4b=(a//10)+14a=(b%10)+2c=a+b2. дано число. проверить, является ли оно двузначным и кратным семи.3.дано число. найти сумму его чётных цифр.4. ввести с клавиатуры десять чисел и найти произведение нечётных.5. ввести с клавиатуры десять чисел и найти среди них наибольшее.!

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
shintasovazeba
16.09.2022 09:36
Можешь "включить" подробный вывод, если объявишь макрос "#define DEBUG"

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace cool{
    class main
    {
        static void Main(string[] args)
        {
            int u1 = 1, u2 = 2;
            int l1 = 1, l2 = 1;
            double a = 0, eps = 0.001;
            int i = 2;
            int U, L;
            double A;

            U = u2 + u1;
            L = l2 + l1;
            A = (double)U / L;

            while (Math.Abs(A - a) > eps || i < 5)
            {
                a = A;
                i++;
                l1 = l2; u1 = u2;
                l2 = L; u2 = U;

                U = u2 + l2;
                L = l2 + l1;
                A = (double)U / L;
               
                #if DEBUG 
                Console.WriteLine("{0} -> {1}|{2}", i, U, L);
                #endif
                if (i == 5)
                    Console.WriteLine("Пятый элемент: {0}", A);
                if (Math.Abs(A - a) < eps)
                    Console.WriteLine("Элемент, отличающийся на менее чем {1}: {0}", A, eps);
            }
        }
    }
}
0,0(0 оценок)
Ответ:
senan53
30.01.2020 03:55
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
procedure MasPrint(a:array[,] of integer; k:integer);
begin
  for var i:=0 to Length(a,0)-1 do begin
    for var j:=0 to Length(a,1)-1 do Write(a[i,j]:k);
    Writeln
    end
end;

begin
  var n:=ReadInteger('Задайте число строк/столбцов в массиве:');
  var a:=MatrixRandom(n,n,-99,99);
  Writeln('Исходный массив');
  MasPrint(a,4);
  for var i:=0 to n-1 do
    for var j:=0 to n-1 do
      if i=j then a[i,j]:=1 else a[i,j]:=0;
  Writeln('Результирующий массив');
  MasPrint(a,2)
end.

Тестовое решение
Задайте число строк/столбцов в массиве: 8
Исходный массив
  42  94  45 -22 -15 -19 -43  68
 -55 -52 -81  62 -16 -11  40  -2
 -95 -94  -1 -83  63  -9  29 -15
 -82  53 -26  24 -47 -74  45  48
  55 -50 -23  30 -95  77 -47 -55
  96  40  32  11 -14 -41 -36 -11
  88  37 -81 -59 -83 -27 -19 -49
 -35 -39 -39  32 -93  33  16 -80
Результирующий массив
 1 0 0 0 0 0 0 0
 0 1 0 0 0 0 0 0
 0 0 1 0 0 0 0 0
 0 0 0 1 0 0 0 0
 0 0 0 0 1 0 0 0
 0 0 0 0 0 1 0 0
 0 0 0 0 0 0 1 0
 0 0 0 0 0 0 0 1
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота