Это пример Страус
Тебе даются координаты (вообщем две циферки)
Первая показывает расстояние по горизонтали ↔️
Вторая растояние по вертикали ↕️
То есть если точка (1; 2) то на горизонтали это 1 (можешь начертить вертикальную линию напротив 1) а 2 (можешь начертить горизонтальную линию напротив 2) и на их пересечении и будет эта точка
<em>var a, i:integer;</em>
<em>procedure del(i:integer; var a:integer);</em>
<em>var j :integer;</em>
<em>begin</em>
<em> a:=0;</em>
<em> for j:=1 to i do</em>
<em> if i mod j = 0 then inc (a)</em>
<em>end;</em>
<em>begin</em>
<em> writeln;</em>
<em> for i:=2 to 1000 do</em>
<em> begin</em>
<em> del(i,a);</em>
<em> if a=2 then write (i, ' ');</em>
<em> end;</em>
<em>end.</em><span><em> </em></span>
Надсистема- устройства вывода
Струйный принтер является разновидностью принтеров.
//PascalABC.NET 3.2 сборка 1318
Const
gal=4,54609;
Var
x:real;
begin
readln(x);
writeln(x*gal);
end.
//2
Var
b1,q:real;
n:integer;
begin
readln(b1,q,n);
if (b1=0) or (q=0) then
begin
writeln('b1=0 or q=0');
exit;
end
else
if q=1 then
begin
writeln('Sum=',b1*n);
writeln('Bn=',b1);
end
else
begin
Writeln('Sum=',b1*(1-power(q,n))/(1-q));
Writeln('Bn=',b1*power(q,n-1));
end;
end.