• Ребята кто разбирается в Pascal ABC помогите пожалуйста

    Задачи на циклы с параметром 1.Дано вещественное число A и целое число N (> 0). Вывести A в степени N: An = A•A•...•A (числа A перемножаются N раз). 2.Дано вещественное число A и целое число N (> 0). Вывести все целые степени числа A от 1 до N. 3.Дано вещественное число A и целое число N (> 0). Вывести 1 + A + A2 + A3 + ... + An. ,

Ответы 1

  • 1) uses crt;var a,s:real;i,n:integer;beginwrite('Введите число А: ');readln(a);write('Введите число N: ');readln(n);s:=1;for i:=1 to n do begin s:=s*a; end;writeln('Число ',a,' в степени ',n,' равно ',s);end.2)uses crt;var a,s:real;i,n:integer;beginwrite('Введите число А: ');readln(a);write('Введите число N: ');readln(n);s:=1;for i:=1 to n do begin s:=s*a; writeln(a,' в степени ',i,' равно ',s); end;end.3)uses crt;var a,s,p:real;i,n:integer;beginwrite('Введите число А: ');readln(a);write('Введите число N: ');readln(n);s:=1;p:=1;write('1 + ');for i:=1 to n do begin s:=s*a; p:=p+s; if i<n then write(s,' + '); if i=n then write(s,' = '); end;writeln(p);end.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years