Program abra;
Var
X : Array [1..20, 1..20] Of
real;
N : Integer;
P : Real;
i, j: Integer;
begin
WriteLn ('Вычисление произведения ');
Write ('Введите размерность: N = ');
ReadLn (N);
WriteLn ('Введите элементы массива:');
For i := 1 To N Do
For j := 1 To N Do
Begin
Write ('X[', i, ',', j, '] = ');
ReadLn (X [i, j] );
End;
P := 1;
P := P * X [i, j];
if (X [i,j])=0 then writeln('присутствуют нулевые элементы') else
WriteLn ('Произведение: P = ',p: 6: 1);
readln;
end.
Объяснение:
Program abra;
Var
X : Array [1..20, 1..20] Of
real;
N : Integer;
P : Real;
i, j: Integer;
begin
WriteLn ('Вычисление произведения ');
Write ('Введите размерность: N = ');
ReadLn (N);
WriteLn ('Введите элементы массива:');
For i := 1 To N Do
For j := 1 To N Do
Begin
Write ('X[', i, ',', j, '] = ');
ReadLn (X [i, j] );
End;
P := 1;
For i := 1 To N Do
For j := 1 To N Do
P := P * X [i, j];
if (X [i,j])=0 then writeln('присутствуют нулевые элементы') else
WriteLn ('Произведение: P = ',p: 6: 1);
readln;
end.
Объяснение:
begin
readln(k);
case k of
10..20: writeln('Мне ', k ,' лет');
else
case k mod 10 of
1 : writeln('Мне ', k ,' год');
2..4: writeln('Мне ', k ,' года');
else writeln('Мне ', k ,' лет');
end;
end;
end.
//
#include <iostream>
using namespace std;
int main()
{
int k;
cin >> k;
if (k >= 10 && k <= 20)
cout << "Мне " << k << " лет" << endl;
else
switch (k % 10)
{
case 1: cout << "Мне " << k << " год" << endl; break;
case 2: cout << "Мне " << k << " года" << endl; break;
case 3: cout << "Мне " << k << " года" << endl; break;
case 4: cout << "Мне " << k << " года" << endl; break;
default: cout << "Мне " << k << " лет" << endl; break;
}
}
//
case - оператор выбора