Ответ:
1.
var a,n,k,i:integer;
begin
write('Введите основание степени (целое число) ');
readln(a);
write('Введите показатель степени (целое число) ');
readln(n);
k:=1;
i:=0;
while i < n do
begin
k:=k*a;
i:=i+1
end;
writeln(a,'^',n,' = ',k)
end.
2.
var a,n,k,i:integer;
begin
write('Введите основание степени (целое число) ');
readln(a);
write('Введите показатель степени (целое число) ');
readln(n);
k:=1;
for i:= 1 to n do k:=k*a;
writeln(a,'^',n,' = ',k)
end.
Sub z()
For i = 44 To 3 step -2
k=k+1
s=s+i
Next i
Print k;"; ";s
<span>End Sub</span>
Прикрепляю решение повторно, надеюсь у модераторов больше не возникнет вопросов...
#include <stdio.h>
char main(void)
{
char A[50], n = 50,i,max;
srand(time(0));
printf("Array A[50]: \r\n ");
for (i=0; i<n; i++)
{
A[i] = -5+ rand(0) %10;
printf("%d ", A[i]);
}
max = A[0];
for (i=0; i<n; i++)
{
if (A[i]>max)
{
if (A[i]>0) max = A[i];
}
}
printf(" \r\n Max: %d ", max);
}
Var
n:integer;
i,j,k:byte;
a:array[1..3] of byte;
begin
Write('Введите натуральное трехзначное число: ');
Read(n);
for i:=1 to 3 do
begin
a[i]:=n mod 10;
n:=n div 10
end;
for i:=1 to 3 do
for j:=1 to 3 do
for k:=1 to 3 do
if a[i]<>0 then Write(a[i],a[j],a[k],' ');
Writeln
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное трехзначное число: 307
777 770 773 707 700 703 737 730 733 377 370 373 307 300 303 337 330 333