Varn, nine, one: integer;
begin
readln(n);
nine := 0;
one := 0;
while (n > 0) do
begin
if (n mod 10 = 1) then
inc(one)
else
if (n mod 10 = 9) then
inc(nine);n := n div 10;
end;
if (one = nine) then
writeln('Равны')
else
if (one > nine) then
writeln('Единиц больше')
else
writeln('Девяток больше');
<span>end.</span>
var
sum,i: integer;
begin
write('Чётные числа от 10 до 30: ');
for i:= 10 to 30 do
if i mod 2 = 0 then
begin
write(i:4);
sum:=sum+i;
end;
writeln;
writeln('Их сумма = ',sum);
<span>end.</span>
В котором за именем команды следует многоточие
Var
a,b,c : integer;
d,x1,x2,s : real;
begin
writeln ('ax^2+bx+c=0');
write ('a=');
readln (a);
write ('b=');
readln (b);
write ('c=');
readln (c);
d := sqr (b) - 4 * a * c;
if d < 0 then
writeln ('Корней нет')
else
begin
x1 := (-b + sqrt (d))/(2*a);
x2 := (-b - sqrt (d))/(2*a);
if x1 <> x2 then
begin
writeln ('x1=',x1);
writeln ('x2=',x2);
s := x1+x2;
writeln ('s=',s);
end
else
writeln ('x=s=',x1);
end;
<span> end.</span>
Это пример Страус
Тебе даются координаты (вообщем две циферки)
Первая показывает расстояние по горизонтали ↔️
Вторая растояние по вертикали ↕️
То есть если точка (1; 2) то на горизонтали это 1 (можешь начертить вертикальную линию напротив 1) а 2 (можешь начертить горизонтальную линию напротив 2) и на их пересечении и будет эта точка
