#4 a) 1 2 3 4 5 b) 1 1 2 4 3 9 4 16 5 25 6 36 7 49 8 64 9 81 10 100 c) пустой вывод #5 n = 5 #6 until n > 10 or a == 0 #7 a) program _1to10; var i: integer; begin for i : = 1 to 10 do write(i, ' ') end. b) program sqr_7_27; var i: integer; begin for i : = 7 to 27 do begin if i mod 2 == 1 then write(sqr(i), ' '); end; end. c) program sqrt_3_4per_23; var i: integer; begin i : = 3; repeat write(sqrt(i), ' '); i : = i + 4; until (i > 23); end.
Semenova
17.08.2022
Подозреваю, что не самый рациональный метод решения, но чем смог тем : ) const n = 30; var a: array [1..n] of longint; i, j, k: longint; begin for i : = 1 to n do readln(a[i]); j: =0; k: =0; for i: =1 to n do begin if (abs(a[i])> =10) and (abs(a[i])< 100) and (a[i]> 0) then inc(k); if (abs(a[i])> =10) and (abs(a[i])< 100) and (a[i]< 0) then inc(j); end; if k> j then writeln(j) else if k< j then writeln(k) else if k=j then writeln(k); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Какие из ниже чисел, записанных в пятеричной системе счисления, будут делиться на 3 без остатка? выберите по крайней мере один ответ: 12 23 44 142 41