Напишите программу с использованием символьных величин и строк символов: На «4»: Ввести с клавиатуры в одну строку фамилию, имя и отчество, разделив их пробелом. Вывести фамилию и инициалы.

Объяснение:

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.

А)

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. // Конец программы