program summation;
var i, summa: Word;
begin
summa := 0;
for i := 1 to 10 do
summa := summa + i;
WriteLn('l + 2 + .+ 10 = ', summa);
end.
бірінші жолда 10, 16; төртінші жолда 18,4,0; бесінші жолда 11,4,6, (әрі қарай білмеймін)
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
var d:=ReadInteger('n=') mod 10;
Writeln(d,#13#10,sqr(d));
end.
<u><em>Тестовое решение:</em></u>
n= 346427
7
49
var
s: string;
i: integer;
q: boolean;
begin
readln(s);
for i := 1 to length(s) do
if(s[i] = '?') then q := true;
if(q) then writeln('Вопросительное')
else writeln('Не вопросительное');
end.
Шина команд имеет множество определений, многие из которых не всегда являются чёткими, так например:
1) В случае с реализацией в железе. Это множественное подключение логических элементов через последовательную или параллельню сеть обеспечивающих консестентную доставку информации в системах передачи данных, не обязательно цифровых, например система клапанов двигателя и система регулирования так же является шиной команд но в аналоговой, механической реализации.
2) В случае с пк или процессором ПК в частности шина команд (Command Bus) обеспечивает интерфейс для передачи процессору команд и результата их вычисления(в ряде случаев) по универсальному методу из программной области памяти (ОЗУ,ПЗУ, ППЗУ) зависит от конкретной реализации ВУ в случае с радиометрическими вычислителями, такие как на радарных станциях и стсемах наведения шина команд фактически отсутствует, т.к. несколько снижает скорость обмена данными уступая здесь узкоспециальным интерфейсам.
