Var i,a,c,b: integer; begin c: =1; writeln('введите число'); readln(a); writeln('введите степень'); readln(b); for i: =1 to b do c: =a*c; writeln (a, ' в сепени ',b,' =',c); end.
Спасибо
Ответ дал: Гость
(3+3·3): 3=4
(3·3+3): 3=4
================
3+3–(3: 3)=5
(3+3): 3+3=5
================
3+3+(3–3)=6
3-3+3+3=6
3·3: 3+3=6
(3+3): 3·3=6
================
3: 3+3+3=7
3+3: 3+3=7
================
3·3–3: 3=8
================
3·3·3: 3=9
3: 3·3·3=9
3·3+3-3=9
3+3·3-3=9
================
3: 3+3·3=10
3·3+3: 3=10
Ответ дал: Гость
var i, j, min, min_i, min_j: integer; a: array[1..5, 1..5] of integer;
begin for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random(100) + 1; write(a[i, j]: 4); end; writeln; end; min : = 999; for i : = 1 to 5 do for j : = 1 to 5 do if min > a[i, j] then begin min : = a[i, j]; min_i : = i; min_j : = j; end; a[min_i, min_j] : = 0; writeln('массив с замененным минимальным элементом'); for i : = 1 to 5 do begin for j : = 1 to 5 do write(a[i, j]: 4); writeln; end; end.
Популярные вопросы