загадать число прибавить 20 +10- задуманое число получиться то что у вас плучится решать алгоритм нужно ивам
Площадь разделить на длинну
Uses Drawman;
var a,i:integer;
procedure square(a:integer);
begin
pendown;
onvector(a,0);
onvector(0,-a);
onvector(-a,0);
onvector(0,a);
end;
begin
Task('pp4');
ToPoint(7,17);
pendown;
a:=15;
for i:=1 to 8 do
begin
square(a);
penup;
onvector(1,-1);
a:=a-2;
end;
ToPoint(0,0);
<span>end. </span>
Для сего надо лишь умножить последнюю цифру на 3 и выделить кол-во единиц же
var
a: <em>integer</em>;
begin
readln(a);
writeln((a <em>mod </em>10 <em>*</em> 3) <em>mod</em>10);
<span>end.</span>
Дано: I = 1,5 Кб, К = 3072 символа. Найти: N — ? Решение. I= 1,5 Кб = 1,5 • 1024 • 8 = 12 288 бит. I I = I/K = 12288/3072 = 4 бита N=2i = 24 =16 символов