Регистрация
kekkekkeksos
30.11.2020 14:40
Информатика
Есть ответ 👍

Составить программу на языке паскаль ввести с клавиатуры вещественное число a и целое число n (> 0). вывести все целые степени числа a от 1 до n.

226
359
Посмотреть ответы 3

Ответы на вопрос:

11Doctor
11Doctor
4,5(100 оценок)
Var a,an: real; n,i: integer; begin readln(a,n); an: =1; for i: =1 to n do   begin   an: =an*a;   writeln(a: 3: 2,'^',i,' = ',an: 6: 3);   end; end. пример: 2.0 5 2.00^1 = 2.0002.00^2 = 4.0002.00^3 = 8.0002.00^4 = 16.0002.00^5 = 32.000
кен91
кен91
4,7(70 оценок)
Var     a: real;       n: integer; begin     read(a, n);     for var k : = 1 to n do     begin         write(power(a, k), ' ');     end; end.
6классКZ
6классКZ
4,4(86 оценок)

1)

#include

using namespace std;

int main()

{

    setlocale(lc_all,"rus");

    const int t=2;

    const int v1=60;

    const int v2=15;

    int s, s1, s2;

    s1=v1*t;

    s2=v2*t;

    s=s1+s2;

    cout< < "они были на одинаковом расстоянии, равном "<

    cout< < "расстояние от города до поселка = "<

    system("pause");

    return 0;

}

2)

#include

using namespace std;

int main()

{

    setlocale(lc_all,"rus");

    const int t1=2;

    const int t2=4;

    const int zarabotok=900;

    int stavka, fee1, fee2;

    stavka=zarabotok/(t1+t2);

    fee1=stavka*t1;

    fee2=stavka*t2;

    cout < < fee1 < < " рублей заработал первый рабочий"< < endl;

    cout < < fee2 < < " рублей заработал второй рабочий" < < endl;

    system("pause");

    return 0;

}

Популярно: Информатика