За 4 умножения получить var a, b: integer; begin readln(a); b := a * a; b := b * b; b := b * b; b := a * b; writeln(b); end.
Вывести числа [a; b] и их квадраты Var a, i, b: integer; begin readln(a, b); for i := a to b do writeln(i, ' ', sqr(i)); end.
Произведение 2-х чисел Var a, b: integer; begin readln(a, b); writeln(a * b); end.
Максимальное и минимальное из 100 введённых чисел без использования массивов: var k1, mi, ma, i: integer; begin readln(ma); readln(mi); for i := 1 to 98 do begin readln(k1); if (ma < k1) then ma := k1; if (mi > k1) then mi := k1; end; writeln(ma, ' - ', mi); end.
Перевод из 10чной СС в 2чную Var b:array [1..255] of integer; a, i, n:integer; begin readln(a); i := 0; while (a >= 1) do begin i := i + 1; b[i] := a mod 2; a := a div 2; end; n := i; for i := n downto 1 do write(b[i]); end.
X в степени Y var x, y: real; begin readln(x, y); writeln(exp(ln(X) * Y)); end.
Uses crt; var p,a,b,c,xa,xb,xc,ya,yb,yc,ab,ac,bc,xab,yab,xbc,ybc,xac,yac:real; s:real; begin writeln('Введите х координаты вершин а и b'); readln(xa,xb); writeln('Введите y координаты вершин а и b'); readln(ya,yb); xab:=xb-xa; yab:=yb-ya; ab:=sqrt(xab*xab+yab*yab); writeln('Введите х координаты вершин а и с'); readln(xa,xc); writeln('Введите y координаты вершин а и c'); readln(ya,yc); xac:=xc-xa; yac:=yc-ya; ac:=sqrt(xac*xac+yac*yac); writeln('Введите х координаты вершин b и с'); readln(xb,xc); writeln('Введите y координаты вершин b и c'); readln(yb,yc); xbc:=xc-xb; yab:=yc-yb; bc:=sqrt(xbc*xbc+ybc*ybc); p:=(ab+bc+ac)/ 2; s:=sqrt(p*(p-ab)*(p-bc)*(p-ac)); writeln(s); end.
begin
var p := ReadArrInteger('Вводите:', 20);
var a := ReadInteger('a =');
p.IndexesOf(t -> t > a).Println; // индексы от нуля!
p.IndexesOf(t -> t > a).Select(t -> t + 1).Println; // номера от 1
end.
ПримерВводите: -16 30 -24 30 -14 -11 -16 -2 -14 7 -23 9 9 11 -10 -5 25 30 -22 -6
a = 5
1 3 9 11 12 13 16 17
2 4 10 12 13 14 17 18
Выберите, что Вам нужно и удалите лишний вывод