А)
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. // Конец программы
abs(−16) = 16
sqr(b) = 256
sqr(b + b) = 1024
Объяснение:
program x1; // Название программы
var // Раздел для описания переменных
a, b, c: integer; // Объявление целочисленных переменных:
a - хранение первого введенного с клавиатуры числа;
b - хранение второго введенного с клавиатуры числа;
с - хранение максимального из них.
begin // Начало программы
a := -16; // Присваиваем значение "-16" в переменную а
b := abs(a); // Присваиваем модуль числа а в переменную b
writeln('abs(−16)=', b); // Выводим в консоль
c := sqr(b); // Присваиваем квадрат числа b в переменную c
writeln('sqr(b)=', c); // Выводим в консоль
c := sqr(b + b); // Присваиваем квадрат числа b + b в переменную c
writeln('sqr(b+b)=', c); // Выводим в консоль
end. // Конец программы
Объяснение:
program N_5;
var stroka1,stroka2,stroka3:string;
begin
Stroka1:='информатика';
Stroka2:='мать';
Stroka3:='ель';
delete(stroka1,1,5);
delete(stroka2,4,1);
delete(stroka3,2,2);
Stroka2:= Stroka2+ Stroka3;
stroka1:=stroka2+stroka1;
writeln(stroka1);
end.