Вставити слова я включив комп ютер та став грати в свою улюблену гру,швидко рухаючи .отримавши рекордний - id189219020221023 от Mikich2 23.10.2022 07:57

Question

Информатика: Вставити слова я включив комп ютер та став грати в свою улюблену гру,швидко рухаючи .отримавши рекордний результат,я ввів з своє ім я та роздрукував на список рекордсменів.потім набрав на невеличку розповідь про відпочинок влітку,переписав з фотографії,додав їх до тексту розповіді та переглянув на . слова для довідки: принтер,миша,сканер,клавіатура,диск,монітор.

Mikich2 · Accepted Answer

1. Для цикла For

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.

MOGZ ответил