Var a, b, i, j: longint; ar: array of boolean; begin readln(a, b); setlength(ar, b); for i : = 1 to b do ar[i - 1] : = true; i : = 2; while (sqr(i) < = b) do begin if(ar[i - 1] = true) then begin j : = sqr(i); while (j < = b) do begin ar[j - 1] : = false; j : = j + i; end; end; i : = i + 1; end; for i : = a to b do if(ar[i - 1] = true) then write(i, ' '); end.
korotinadasha07
14.05.2021
Uses crt; var i,j,max: byte; a: array [1..100] of integer; buf: integer; begin repeat write(' input number of elements '); readln(max); until max in [1..100]; writeln('input your demention'); for i: =1 to max do begin write('input a[', i, '] = '); readln(a[i]); end; buf: =0; write('the first sort: '); for i: =max downto 1 do for j: =2 to i do if a[j]< a[j-1] then begin buf: =a[j]; a[j]: =a[j-1]; a[j-1]: =buf; end; for i: =1 to max do write(a[i]); writeln; write('the second sort : '); for i: =max downto 1 do write(a[i],' '); end.с форума программистов , сортировка повсюду
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Определите периметр треугольника со сторонами а, б, с
ответ: формула pтр = а + б + с
если нужен код, тогда вот код на python
a = float(
b = float(
c = float(
print("периметр треугольника равен", a + b + c)