Нарисуй прямоугольник 5 клеточек на 4 клеточки и назови рисунок "прямоугольник"
const N = 12;
const lim = 65535;
var array1: array [1..N] of real;
i: integer;
begin
randomize;
for i:=1 to N do begin
array1[i]:= random(-lim, lim) * 2;
writeln(array1[i]);
end
end.
16 килобайт
Решение:
► 217 разделить на 23 = получаем 217-3 = 214 байта
► 214 разделить 210 = 214-10 = 24 = 16 Килобайт
Var A : array[1..12] of integer; i,max : integer;
begin
for i:=1 to 12 do
begin;
read(A[i]);
if A[i]>max then max:=A[i];
end;
Writeln(max);
end.
Ответ: 18
Решение:
Program zadacha;
Begin
Write(0 div 3-3 mod 2+4div 2+10+7*4div 3-10 mod 4);
<span>end.</span>