А)
program c1;
var
a, b: integer;
c: real;
begin
a := 2;
b := 3;
c := a + 1 / 3;
write(c);
end.
Б)
program c2;
var
a, b: integer;
c: real;
begin
a := 2;
b := 3;
c := a + 4 / 2 * 3 + 6;
write(c);
end.
В)
program c3;
var
a, b: integer;
c: real;
begin
a := 2;
b := 3;
c := a + 4 / 2 * 3;
write(c);
end.
Объяснение:
А)
program c1; // Название программы
var // Раздел для описания переменных
a, b: integer; // Объявление целочисленных переменных
c: real; // Объявление вещественной переменной
begin // Начало программы
a := 2; // a = 2
b := 3; // b = 3
c := a + 1 / 3; // c = a + 1 ÷ 3
write(c); // Выводим ответ
end. // Конец программы
Б)
program c2; // Название программы
var // Раздел для описания переменных
a, b: integer; // Объявление целочисленных переменных
c: real; // Объявление вещественной переменной
begin // Начало программы
a := 2; // a = 2
b := 3; // b = 3
c := a + 4 / 2 * 3 + 6; // c = a + 4 ÷ 2 × 3 + 6
write(c); // Выводим ответ
end. // Конец программы
В)
program c3; // Название программы
var // Раздел для описания переменных
a, b: integer; // Объявление целочисленных переменных
c: real; // Объявление вещественной переменной
begin // Начало программы
a := 2; // a = 2
b := 3; // b = 3
c := a + 4 / 2 * 3; // c = a + 4 ÷ 2 × 3
write(c); // Выводим ответ
end. // Конец программы
Столица Древнего Египта - Мемфис.
Объяснение:
Земли вокруг столицы (Мемфис) были очень плодородны. Нил широко разливался и питал почву илом. Таким образом, она получала природное удобрение. Большая часть жителей Мемфиса была занята в сельском хозяйстве. Они выращивали хлопок, виноград, инжир и зерновые культуры, собирали розовое масло, разводили овец. Крестьяне собирали богатый урожай с полей. Овцы хорошо росли и плодились. Местная отара достигала нескольких сот тысяч голов. Поэтому проблем с пропитанием всех жителей царского двора не возникало. Многочисленная дворцовая челядь, жрецы, слуги и рабы всегда были сыты.
M: array[1..255, 1..255] of integer;
a,b,n,i: integer;begin
write('N: ');
read(n);
// Заполнение матрицы
for a:=1 to n do
for b:=1 to n do
begin
write(a,';',b,':');
read(M[a,b]);
end;
// Обработка матрицы
for b:=1 to n do
begin
i:=0;
for a:=1 to n do
if M[a,b] > 5 then i+=1;
writeln(b,' столбец: ', i);
end;
end.