Үйде орындайың Оқушыларға сыныптың жалауын дайындап, басып
шығару тапсырылды. Жалауды шығару үшін Мансұр мен
Диас принтер құрылғысын пайдаланды. Мансұрдың прин-
тері 1 минутта 1 жалау үлгісін шығарды. Ал Диастың прин-
тері 1 минутта 5 жалау үлгісін шығарып үлгерді.
Барлығы 15 минутта әрқайсысының шығару құрылғы-
сы қанша жалау үлгісін шығарды? Жалауды қай принтер-
мен шығарған тиімді?​

1 кбайт=1024 байта

1 байт=8 бит

81920/8=10240 байт

10240/1024=10 кбайт

program pr; label l; var mas: array[1..10] of integer; i,k,n,b,sum: integer; beginrandomize; for i: =1 to 10 do mas[i]: =round(())*random+(-10)); l: for i: =1 to 10 dobeginif n< mas[i] thenbeginn: =mas[i]; k: =i; end; end; writeln ('a[',k,']=',n); mas[k]: =-11; n: =0; k: =0; if b=0 thenbeginb: =1; goto l; end; readln; end.

программу проверил все работает

как-то

program g; vara, b : integer; n : integer; s : integer; z: array[0..16] of integer; i : integer; v: integer; begina: =(-20); b: =20 ; n: =16 ; for i : = 1 to n dobegins : = trunc(random(b-a)+a); writeln (i: 2,'-е случайное число: ',s: 4); end; beginwriteln('индексы элементов кратных 3: '); for v: =0 to 16 do begin z[v]: =random(40)-20; if z[v] mod 3 = 0 then write(v, ' ') end; end; end. 

грубо и сердито:

var c: longint;

begin

  read(c);

  c: =c mod 10;

  c: =sqr(c);

  writeln(c);

end.