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.
Решение
Человек лучше понимает и запоминает ту
информацию, которая представлена наглядно - с помощью рисунков,
фотографий, схем, диаграмм. Эту информацию легче анализировать.
Var
c: integer;
begin
readln(c);
writeln(sqr(c mod 10));
end.
Методы имитационного моделирования удобно использовать , несколько примеров:
Строительство нового производства любой отрасли: машиностроение, металлургия, нефтехимическая промышленность, деревообработка и др.
<span> Имитационное моделирование позволяет имитировать поведение системы во времени. </span>
Такая зелененькая?
А на фоне этого дельфин?
Он называется Dolphin Browser.