По горизонтали: 1.основное устройство ввода информации10букв 2.мозг компьютера(9букв) 3.устройство вывода информации7 букв 4 устройство хранения программ и данных6 букв 5 носитель информации на который записывают программы для хранения7 букв 6.другое название жёсткого диска9 букв
var x,n,p:longint; i:integer; begin readln (x,n); p:=1; for i := 1 to N do p:=p*x; writeln(x,' в степени ',n,' равно ',p ); end.
2. Для цикла While var x,n,p:longint; i:integer; begin readln (x,n); p:=1; i:=1; while i<=n do begin p:=p*x; i:=i+1; end; writeln(x,' в степени ',n,' равно ',p ); end.
3. Для цикла Repeat
var x,n,p:longint; i:integer; begin readln (x,n); p:=1; i:=1; repeat p:=p*x; i:=i+1; until i>n; writeln(x,' в степени ',n,' равно ',p ); end.
1) Клавиатура
2) Процессор
3) Принтер
4) Память
5) Дискета
6) Венчестер