Const n=4;
var
a:array[1..n,1..n] of integer;
i,j,b:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n div 2 do
for j:=i to n-i do
begin
b:=a[i,j];
a[i,j]:=a[n-j+1,i];
a[n-j+1,i]:=a[n-i+1,n-j+1];
a[n-i+1,n-j+1]:=a[j,n-i+1];
a[j,n-i+1]:=b;
end;
writeln('Полученный массив:');
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
end.
Пример:
Исходный массив:
57 32 69 17
87 33 85 22
89 80 59 13
60 93 96 56
Полученный массив:
60 89 87 57
93 80 33 32
96 59 85 69
56 13 22 17
Исаак Ньютон, 17 век, Закон всемирного Тяготения, три закона механики
Антуан Лавуазье, 18 век, закон сохранения массы вещества.
Мария Кюри (совместно с Пьером Кюри) 20 век, исследование радиоактивности, открытие новых радиоактивных элементов - радия и полония
Чарльз Дарвин, 19 век, Теория естественного отбора
Георг Ом, 19 век, Закон Ома
#include <stdio.h>
int main(void)
{
unsigned int
number;
scanf("%u", &number);
switch(number)
{
case 1:
{
printf("%s\n", "Понедельник");
break;
}
case 2:
{
printf("%s\n", "Вторник");
break;
}
case 3:
{
printf("%s\n", "Среда");
break;
}
case 4:
{
printf("%s\n", "Четверг");
break;
}
case 5:
{
printf("%s\n", "Пятница");
break;
}
case 6:
{
printf("%s\n", "Суббота");
break;
}
case 7:
{
printf("%s\n", "Воскресенье");
break;
}
}
return 0;
}
<h3>PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var s:=ReadlnString;
s:=s.RegexReplace('[AaBb]','c');
s.Println
end.
<h3>Пример</h3>
A quick movement of the enemy will jeopardize six gunboats.
c quick movement of the enemy will jeopcrdize six guncocts.
2-1: Дорога (маршрут);
2-2: Показать путь;
2-3: Маршрут (повороты);
2-4: Схема на бумаге;
3-1: Земля;
3-2: Объяснение (обучение);
3-3: Движение Земли вокруг Солнца;
3-4: Глобус , настольная лампа;
4-1: Полет;
4-2: Подготовка организма к перегрузкам;
4-3: Перегрузки;
4-4: Центрифуга;
