Главной особенностью конструкции этой машины является программный принцип<span> работы. </span><span>Принцип программы, хранимой в памяти компьютера, считается важнейшей идеей современной компьютерной архитектуры. Суть идеи заключается в том, что
1) программа вычислений вводится в память ЭВМ и хранится в ней наравне с исходными числами;
2) команды, составляющие программу, представлены в числовом коде по форме ничем не отличающемся от чисел.</span>
Операция div - это целочисленное деление. с = a div b - такая запись означает, что число а будет поделено на b и в переменную с запишется только целая часть от деления. 25 div 4 = 6. 25 div 5 = 5.
Операция mod наоборот находит не целую часть от деления, а остаток. Т.е. тут отбрасывается целочисленная часть деления. 25 mod 4 = 1 (т.к. если 25 разделить на 4, то получим 6 целых и 1 в остатке)
Теперь по заданию:
при 25 и 4
25 div 4 = 6. 6 <> 4 → A:=25 mod 4 = 1. Ответ 1
при 25 и 5
25 div 5 = 5. 5 = 5 → A:=25 div 5 = 5. Ответ 5
Я, конечно, не художник, но надеюсь это похоже на ёлки.
uses GraphABC;
begin
For var i := 0 to 4 do
begin
SetBrushColor(clGreen);
FillPie(80 + 120 * i, 100, 25, -50, -130);
FillPie(80 + 120 * i, 115, 40, -50, -130);
FillPie(80 + 120 * i, 135, 60, -50, -130);
FillPie(80 + 120 * i, 160, 75, -50, -130);
SetBrushColor(clBrown);
FillRectangle(74 + 120 * i, 234, 86 + 120 * i, 245)
end;
end.
Program mili;
const a=1.603; b='км'; с='мили';
var k:integer; m:real;
begin
writeln(b:5,c:7); writeln;
for k:=l to 10 do
begin
m:=k/a; writeln(k:5,m:6:3)
end
end.
