Ну сначала объявляем переменные,константы юсы и т д,потом если нужно пишем процедуры и функции в конце пишем блок основной программы,заканчивающийся end.
Program n1;
var a,b:
integer;
beginwriteln ('введите число');
readln (a);
b:= a div 100;
a:= a mod 100;
a:=(a*10)+b;
writeln (a);
end.
program n2;
var a,b:integer;
begin
writeln ('введите год');
readln (a);
b:= a div 100;
writeln (a,' год относится к ',b+1,' столетию');
end.
Вывести 2 переменные в порядке в возрастания, или последовательность чисел от n do d?
10011010, если расписывать, то просто 154 делить на два в столбик, и всё остатки должны сойтись с моим полученным числом, удачи!
Поскольку код семибитный, то 1 символ занимает 7 бит, отсюда:
2000 символов*7 бит=14000 бит/8 (в 1 байте 8 бит) = 1750 байт
<u>Ответ: 1750 байт</u>