Pascal: const a:array [1..5,1..5] of integer = ((1,2,3,4,5), (6,7,8,9,10), (11,12,13,14,15), (16,17,18,19,20), (21,22,23,24,25)); var I,j:integer; begin for i:=1 to 5 do for j:=1 to 5 do write (a[I,j],' '); writeln; for i:=1 to 5 do begin for j:=1 to 5 do write (a[I,j]:3); writeln; end; readln; end.
C++: #include <iostream> #include <iomanip> using namespace std;
int main() { int a[5][5] = {{1,2,3,4,5}, {6,7,8,9,10}, {11,12,13,14,15}, {16,17,18,19,20}, {21,22,23,24,25},}; for (int I = 0; I<5; I++) for (int j = 0; j<5; j++) cout <<a[I][j] <<" "; cout <<endl; for (int I = 0; I<5; I++) { for (int j = 0; j<5; j++) cout <<setw(3) <<a[I][j]; cout <<endl; } return 0; }
а) “Солнце есть спутник Земли”;логическое высказывание т.к создаёт утверждение и его можно проверить его истинность, и она = ложьб) “2+34”не логическое высказывание, ничего не утверждаетв) “сегодня отличная погода”;логическое высказывание, можно проверить задав критерий понятия "отличная погода"г) “в романе Л.Н. Толстого “Война и мир” 3 432 536 слов”;логическое высказывание т.к создаёт утверждение и его можно проверить его истинность например для текста на английском языкед) “Санкт-Петербург расположен на Неве”;логическое высказывание т.к создаёт утверждение и его можно проверить его истинностье) “музыка Баха слишком сложна”;в принципе логическое высказывание, но сложно придумать пример как можно проверить его истинностьж) “первая космическая скорость равна 7.8 км/сек”;для каждой планеты своя космическая скорость, для земли будет истинна, для марса ложь - логическое высказываниез) “железо — металл”;констатация факта, не логическое утверждениеи) “если один угол в треугольнике прямой, то треугольник будет тупоугольным”;логическое утверждение, которое ложьк) “если сумма квадратов двух сторон треугольника равна квадрату третьей, то он прямоугольный”.логическое утверждение, его можно проверить.
&
→ 
&
∨ 
const a:array [1..5,1..5] of integer = ((1,2,3,4,5),
(6,7,8,9,10),
(11,12,13,14,15),
(16,17,18,19,20),
(21,22,23,24,25));
var I,j:integer;
begin
for i:=1 to 5 do
for j:=1 to 5 do write (a[I,j],' ');
writeln;
for i:=1 to 5 do
begin
for j:=1 to 5 do write (a[I,j]:3);
writeln;
end;
readln;
end.
C++:
#include <iostream>
#include <iomanip>
using namespace std;
int main()
{
int a[5][5] = {{1,2,3,4,5},
{6,7,8,9,10},
{11,12,13,14,15},
{16,17,18,19,20},
{21,22,23,24,25},};
for (int I = 0; I<5; I++)
for (int j = 0; j<5; j++)
cout <<a[I][j] <<" ";
cout <<endl;
for (int I = 0; I<5; I++)
{
for (int j = 0; j<5; j++)
cout <<setw(3) <<a[I][j];
cout <<endl;
}
return 0;
}