2 т.к. 3к байтов = 24к битов
И 24к делим на 5*32*80=12к
Var a: array[1..5] of Integer;
rand,count,i: Integer;
begin
for i:=1 to 5 do
begin
a[i]:=Random(100);
writeln(a[i]);
if (a[i] mod 5=0) and (a[i] mod 10=0) then Inc(count);
end;
writeln('Кол-во: ',count);
end.
<em>// PascalABC.NET 3.2, сборка 1483 от 14.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Вводите:');
Delete(s,4,1); Delete(s,2,1);
Writeln(s)
end.
<u>Пример</u>
Вводите: Удаление пары символов
Уаение пары символов
Program z1;
var x,y:real;
begin
writeln('Введите x');
readln(x);
y:=(2*x+3)*(7*x-5)
writeln('y=',y:3:2);
end.
_
_
program z1;
var x,y:real;
begin
writeln('Введите x');
readln(x);
y:=2-(x-3)/sqr(x-3)+4
writeln('y=',y:3:2);
end.