На канцелярские товары потратили 310 рублей. известно, что ручек купили 20 по цене 4 рубля, блокнотом - id947477920220820 от WinnerGDWot027 20.08.2022 13:34

Question

Информатика: На канцелярские товары потратили 310 рублей. известно, что ручек купили 20 по цене 4 рубля, блокнотом 10 по цене 13 рублей. определите основание системы счисления, в которой производились расчёты.

WinnerGDWot027 · Accepted Answer

Program pr1;
const n=19;
var i, l: integer;
    Dat: array [1..n] of integer;
    New: array [1..n] of integer;
begin
write('Dat: ');
for i:=1 to n do begin
                  Dat[i]:=random(30)-15;
                  write(Dat[i],' ');
                  end;
writeln();
write('New: ');
l:=0;
for i:=1 to n do if (Dat[i]>=0) and (Dat[i] mod 8<>0) then begin
                                                           l:=l+1;
                                                           New[l]:=Dat[i];
                                                           end;
for i:=1 to l do write(New[i],' ');
end.

Дан массив размерностью n. элементы вводятся случайным образом из диапозона [-15..15]. удалить в нём

Дан массив размерностью n. элементы вводятся случайным образом из диапозона [-15..15]. удалить в нём

MOGZ ответил