Program kol_vo_elementov;
var a:real;
begin
writeln('Введите число');
readln(a);
a:=sqr(a);
writeln('a=',a);
end.
Выделить первую ячейку и удерживая нажатой клавишу CTRL можно выделить и другие ячейки и удалить
Каждому символу в 16-ричной системе счисления соответствует набор из 4-х символов в 2-ичной. В частности,
Е = 1110
8 = 1000
Подставляя, получаем ответ: 111011101000
Ответ: 111011101000
Var
name, surname, patronymic : string;
begin
write('Введите фамилию: '); readln(surname);
write('Введите имя: '); readln(name);
write('Введите отчество: '); readln(patronymic);
writeln('Имя: ', name);
end.