Var num, deg: integer;
res: real;
i: byte;
begin
write ('Число: ');
readln (num);
write ('Степень: ');
readln (deg);
res := 1;
i := 0;
while i < abs(deg) do begin
res *=num;
inc(i)
end;
if deg < 0 then
res := 1 / res;
writeln (res:10:5);
end.
Формальные исполнители не понимают смысла алгоритма. Они только выполняют команды и не могут вносить изменения в алгоритм.
Примеры: ADSL модем, лазерный принтер, фотоэлемент, ЭВМ, устройство для оплаты банковской картой в супермаркете, собака (выполняет команды, не понимая их смысла), телевизор, стиральная машина, принтер и т.д.
Неформальные исполнители понимают смысл алгоритма и могут вносить в него коррективы. Пример: человек.
Ну, я вопрос не так хорошо понял. Думаю что в *С. *С = градусы Цельсия.
??? Ээээ... Аммм...ээх! Всё равно НЕ ПОНЯТНО!
1 Регулюють
2 Не поширюється
3 Є об'єктом
4 Не використовувати
5 Використовувати
6 Крадене