var a,b,c:integer; begin writeln('введите число и степень'); {здесь прост программа тебя спрашивает какие числа} read(a,b); {здесь программа читает их} case b of {тут выполняется условие типа если b и идут сами степени} 0: writeln(1); 1: writeln(a); {здесь что программа выдаст если ты напишешь такую степень} 2: writeln (a*a); 3: writeln (a*a*a); 4: writeln (a*a*a*a); 5: writeln (a*a*a*a*a); 6: writeln (a*a*a*a*a*a); 7: writeln (a*a*a*a*a*a*a); 8: writeln (a*a*a*a*a*a*a*a); 9: writeln (a*a*a*a*a*a*a*a*a); end; end.
Соблюдать чистоту за рабочим местом. Не находится с напитками и едой за компьютером. За компьютером работать с чистыми руками. Рекомендации по организации работы за компьютером: 1) Сидеть прямо не напрягаясь; 2) Моргайте чаще во время за работой за компьютером, потому что каждое такое движение очищает глаза и производит своеобразный массаж; 3) Не рекомендуется работать на компьютере более 45 минут без перерыва; 4) Во время перерыва желательно делать короткую зарядку для глаз. Так вы сможете сохранить свое зрение в порядке на долгие времена.
var a,b,c:integer;
begin
writeln('введите число и степень'); {здесь прост программа тебя спрашивает какие числа}
read(a,b); {здесь программа читает их}
case b of {тут выполняется условие типа если b и идут сами степени}
0: writeln(1);
1: writeln(a); {здесь что программа выдаст если ты напишешь такую степень}
2: writeln (a*a);
3: writeln (a*a*a);
4: writeln (a*a*a*a);
5: writeln (a*a*a*a*a);
6: writeln (a*a*a*a*a*a);
7: writeln (a*a*a*a*a*a*a);
8: writeln (a*a*a*a*a*a*a*a);
9: writeln (a*a*a*a*a*a*a*a*a);
end;
end.
Рекомендации по организации работы за компьютером:
1) Сидеть прямо не напрягаясь;
2) Моргайте чаще во время за работой за компьютером, потому что каждое такое движение очищает глаза и производит своеобразный массаж;
3) Не рекомендуется работать на компьютере более 45 минут без перерыва;
4) Во время перерыва желательно делать короткую зарядку для глаз. Так вы сможете сохранить свое зрение в порядке на долгие времена.