Versiunea in limba romana Версия на русском языке
...:::   Главная страница · О Паскале · Download · О сайте:::...
 
На сайте:  
Реклама  

 

HotLog online dating service
HotLog
HotLog доставка цветов

 

Вычисление выражения 2^n

 

вычислить 2^n используя циклы for, while, repeat


var n,i,c:byte;
a,w,r:word;
BEGIN
write('n= ');
readln(n);
a:=1; w:=1; r:=1;

for i:=1 to n do
a:=a*2;

c:=0;
while cw:=w*2; inc(c);
end;

c:=0;
repeat
r:=r*2;
inc(c);
until c>=n;

writeln('a=w=r=2');
writeln('a^',n,'= ',a);
writeln('w^',n,'= ',w);
writeln('r^',n,'= ',r);
readln;

END.

<< Назад

 
Добавленно: 06.08.04    Автор: Аня

Copyright © Rocko, 2004. Last Updated : 1 september 2004

Hosted by uCoz