Var i,y,a,b: single;
begin
writeln('Выберите действие: 1)y=(a+b)^2; 2)y=a^2-b^2; 3)y=1/(a+b)');
read(i);
if i=1 then begin
writeln('Введите a и b');
read(a,b);
write('y=',(a+b)*(a+b));
end
else begin
if i=2 then begin
writeln('Введите a и b');
read(a,b);
write('y=',(a*a)-(b*b));
end
else begin
if i=3 then begin
writeln('Введите a и b');
read(a,b);
write('y=',1/(a+b));
end;
end;
end;
<span>end.</span>
Можно так. цифрой обозначаем порядок в котором она стоит, а количеством обозначаем саму цифру тоет:
Десятичное число : запись в нашей десятичной сс.
3:111
14:21111
102:311
302051:12222244666 (Система непозиционная, так что порядок седования цифр не имеет значение)
Если надо записать число в котором цифр больше десяти, то перем буквы латинского алфавита по порядку
213541123451324:1111223334555556666777889abbccccdddddeeefgg
Var m,n,i,j:longint;
begin
readln(n,m);
if m > n then begin
for i:= n to m do begin
for j:= 1 to i do begin
write(i,' ');
end;
writeln;
end;
end else begin
for i:= m to n do begin
for j:= 1 to i do begin
write(i,' ');
end;
writeln;
end;
end;
end.
(y >= x-4)and(y <= x+4)
(y >= x-4) && (y <= x+4)
Шаг в перед и назад вроде