1.
var x: integer;
begin
randomize;
x := random(9000) + 1000;
x := x - x mod 10;
writeln(x);
end.
2.
var x, _sum: integer;
begin
randomize;
_sum := 0;
x := random(9000) + 1000;
x := x - x mod 10;
writeln('Случайное число:', x);
while x > 0 do
begin
_sum := _sum + x mod 10;
x := x div 10;
end;
if _sum mod 3 = 0 then
writeln('Сумма цифр кратна трём!')
else
writeln('Сумма цифр не кратна трём!');
end.
3.
var x, _sum: integer;
begin
randomize;
_sum := 0;
x := random(9000) + 1000;
writeln('Случайное число: ', x);
write('Если записать его в обратном порядке: ');
while x > 0 do
begin
write(x mod 10);
x := x div 10;
end;
end.
Важной составной частью фон-неймановской архитектуры является счетчик адреса команд. Он постоянно указывает на ячейку памяти, в которой хранится следующая команда программы. Считав очередную команду из памяти, процессор сразу же увеличивает значение счетчика так, чтобы он показывал на следующую команду.
Считанная в регистр команд операция расшифровывается, извлекаются необходимые данные, над ними в АЛУ выполняются требуемые действия и, если предусмотрено операцией, результат записывается в ОЗУ.
Затем во всех случаях, за исключением команды останова, описанные действия циклически повторяются.
Таким образом основной алгоритм работы процессора состоит из четырёх тактов
