Ru Рашка
ua Украина
org Оргия какая-то
cn Ускоглазики из Китая
Const n=6;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do
for j:=1 to i do a[i,j]:=n-i+j;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:3);
writeln;
end;
end.
Пример:
6 0 0 0 0 0
5 6 0 0 0 0
4 5 6 0 0 0
3 4 5 6 0 0
2 3 4 5 6 0
1 2 3 4 5 6
1) открыть чек
2) считать штрих код товара
3) получить данные по товару
4) вычислить стоимость товара и общую сумму
5) если есть еще товары, то к п2
6) вывести общую сумму покупки или вообще данные по чеку
7) получить данные оплаты (наличка или карточка, сколько налички)
8) если оплата наличкой, то вычислить разницу/здачу и вывести на экран
9) открыть кассиру доступ к наличным деньгам в кассе
10) распечатать чек
<span>11) закрыть чек</span>
Первый советский компьютер был создан под руководством Сергея Алексеевича Лебедева <span>(1902—1974). Необходимость создания собственного ЭВМ в СССР была осознана несколько позже, чем в США,
так что соответствующие работы начались только с осени 1948 года.
Инициаторами проекта выступили ученые-ядерщики — в те годы буквально вся
страна работала над атомным проектом, который курировал лично Лаврентий Берия. Первым делом советские разработчики приступили к разработке Малой электронной счетной машины (МЭСМ). </span>
1946 год - это не год создания самой ЭВМ. В 1946 только определились с прниципиальной схемой блоков и компоновкой. Сам компьютер сделали только в 1950. Разработки шли в Киеве, тогда не делили на русских и украинских ученых. Они все были советские, частью из Москвы, частью - киевляне (в частности, Глушков).
1)
Var i : Byte;
Begin
For i:=Ord('a') to Ord('z') do Writeln(Chr(i),' ',i);
end.
2)
Var i : Byte;
Begin
i:=Ord('a');
While i<=Ord('z') do
Begin
Writeln(Chr(i),' ',i);
Inc(i);
end;
end.
3)
Var i : Byte;
Begin
i:=Ord('a');
Repeat
Writeln(Chr(i),' ',i);
Inc(i);
Until i>Ord('z');
end.
