Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 79.

Составить программу, которая будет находить аb, то есть b-ю степень числа А, где А и В - это целые числа и В>0, вводимые с клавиатуры.

uses crt;
var a,b:integer;
s:longint;
procedure stepen (x,y:integer;var s:longint);
var i: integer;
begin
  s:=1;
  for i:=1 to у do
  s:=s*x;
end;

begin
  clrscr;
  writeln('a=b=');readln(a,b);
{Вызов процедуры нахождения степени числа А.}
  stepen(a,b,s);
  writeln('s=',s);
  readln;
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
  Top.Mail.Ru