а) Т.к. компьютер офисный, то и наворотов в нем должно быть немного.Можно взять самую дешевую материнскую плату, микропроцессор и т.д. Видеокарту смысла брать нет, т.к. видеокарты, которая находится на материнской плате вполне хватит на документы :
Да.
13€R, потому оно является выражениям высказывания.
Ответ:
Объяснение:
const
n = 100;
var
a:array[1..n] of integer;
i, k:integer;
begin
k:=1;
for i:= 1 to n do begin
a[i]:=k;
if (i mod 2 = 0) then k:=k + 1;
end;
for i:= 1 to n do
write(a[i], ' ');
readln;
end.
Не совсем понял смысл, но вот:
procedure TForm1.Button1Click(Sender: TObject);
var
i, s: integer;
begin
for i := 0 to (StrToInt(Edit1.Text) - 1) do
begin
if (s > StrToInt(Edit2.Text)) then break;
s := s + StrToInt(Memo1.Lines[i]);
end;
Memo2.Text := IntToStr(s);
end;
Эта штука суммирует числа из Memo1 (числа в строках), пока количество суммируемых не превысит N, либо их сумма не превысит M, либо числа не кончатся
дано:
Nсотр.=714
Nраб.=698
Vвремя=3 байта
решение:
Vобщ. × Vсообщ. × Nсообщ.
Nсообщ.= 698×2= 1396
Vсообщ.=Vкода + 3 байта
Vкода-?
M= 714=2i
1024=2i=210