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.
Было 25 домов.решение 25*2=50 домов построили одним летом...50*2=100 домов.
<span>Одним из таких свойств является дискретность. Под дискретностью понимается то, что алгоритм состоит из описания последовательности шагов обработки, организованный таким образом, что в начальный момент задаётся исходная ситуация, а после каждого следующего шага ситуация преобразуется на основе данных, полученные в предшествующие шаги обработки. Дискретность алгоритма означает, что он исполняется по шагам: каждое действие, предусмотренное алгоритмом, исполняется только после того, как закончилось исполнение предыдущего. </span>
Var i,n:integer;
s,k:real;
begin
writeln('Введите количество дней: ');
readln(n);
k:=10;
i:=1;
s:=0;
while i<=n do
begin
s:=s+k;
k:=k*1.1;
i:=i+1;
end;
writeln('Спортсмен пробежал: ',s:5:2);
readln;
end.
var i:integer;
s,k,a,b,sum,p:real;
begin
writeln('Стипендия студента: ');
readln(a);
writeln('Расходы студента: ');
readln(b);
k:=b;
i:=1;
s:=0;
while i<=10 do
begin
s:=s+k;
k:=k*1.03;
i:=i+1;
end;
sum:=10*a;
p:=s-sum;
writeln('Нужно попросить у родителей: ',p:5:2);
readln;
end.
Vara,b,c,d:integer;beginreadln(a);readln(b);readln(c);d:=(a+b)mod sqr(c);if d=0 then beginwriteln ('Кратно'); end else writeln ('Не кратно');end.