Program p_1;
var a: word;
begin
readln(a);
a := a * a;
writeln(a)
end
Если энциклопедия сохранена в юнекоде то там 1 символ равен 2 байтам. А у нас на странице символов на 13 килобайт.
1 килобайт равен 1024 байта.
13 килобайт равен 13312 байта.
13312 делим на 2 и получаем 6656 - это и есть наше количество символов на странице весом в 13 килобайт.
Мы сдвигаем вправо на 4 элемента C->F $C ->$C
сдвигаем вниз на 2 элемента 3->5 1->3
в D3 будет:
=F5+$C3
1.Размер столбца должен соотвествовать(удовлетворять) ширине текста.
2.Заголовок должен быть виден.(выделен шрифтом или цветом.)
3.Выравнивание в слобцах и строчках должно быть одно (по краю или середине,отдельно взятой строке и отдельно взятом столбце выравнивание должно совпадать)
var a: integer;
begin
write('Введите двузначное число: ');
readln(a);
if (a mod 10 = 6) or (a div 10 = 6) then writeln('В его составе есть цифры кратные 6')
else writeln('В его составе нет цифр кратных 6')
end.