fouettearoma
?>

От программы, записанной на алгоритмическом языке, перейдите к записи программы на языке Паскаль. В ответе запишите первую строку программы на языке Паскаль.​

Информатика

Ответы

utburt
Using System;
public class Test
{
    public static void Main()
    {
    int a, b, c, d, min1, min2, max;
    Console.Write("a = ");
    a = int.Parse(Console.ReadLine());
    Console.Write("b = ");
    b = int.Parse(Console.ReadLine());
    Console.Write("c = ");
    c = int.Parse(Console.ReadLine());
    Console.Write("d = ");
    d = int.Parse(Console.ReadLine());
    if (a < b) min1 = a; else min1 = b;
    if (c < d) min2 = c; else min2 = d;
    if (min1 > min2) max = min1; else max = min2;
    Console.WriteLine("max = {0}", max);
    System.Console.ReadKey();
    }
}
klimenko05
В C++:
#include <iostream>
#include <ctime>
#include <iomanip>
int main()
{
    using namespace std;

    //размерность матрицы
    const int N = 5;
    int matrix[N][N];
    srand(time(0));
    int i, j;

    //как-нибудь заполняем матрицу
    for (i = 0; i < N; i++)    
        for (j = 0; j < N; j++)
            matrix[i][j] = rand() % (N * N + 1) - (N * N / 2);

    //вывод исходной матрицы на экран
    for (i = 0; i < N; i++)
    {
        for (j = 0; j < N; j++)
            cout << setw(4) << matrix[i][j];
        cout << endl;
    }
   
    //проверка, есть ли вообще числа, чтобы умножать
    int p = 0;
    for (i = 0; i < N; i++)
        for (j = 0; j < N; j++)
            if (i > j && i > N - j - 1 && matrix[i][j] < 0)
            {
                p = 1;
                break;
            }

    //подсчёт требуемого произведения
    for (i = 0; i < N; i++)
        for (j = 0; j < N; j++)
            if (i > j && i > N - j - 1 && matrix[i][j] < 0)
                p = p * matrix[i][j];

    //нахождение модуля произведения
    if (p < 0)
        p = -p;

    //вывод этого значения на экран
    cout << "Multiplication: " << p << endl;
    return 0;
}

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

От программы, записанной на алгоритмическом языке, перейдите к записи программы на языке Паскаль. В ответе запишите первую строку программы на языке Паскаль.​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

arch5050
AndreiFaikov1943
Жуков219
АлександрАлина
alesia1986
Мунировна
ddavydov1116
Гарик383
leeteukism
dsnewline
Staroverovanatasa494
Filintver
tgeraskina
olga0909196323
skorykin123371