<span>Текст,записанный с использованием 64 символьного алфавита состоит из 52 символов.То обьем текста равен 3 328 бит</span>
//Решение для годовой процентной ставки
#include <iostream>
#include <math.h>
#include <iomanip>
#define MONT 12
#define PER 100
using namespace std;
int main()
{
unsigned int credit, period;
double montpay;
cout << "Input loan amount: ";
cin >> credit;
cout << "Input crediting period (years): ";
cin >> period;
cout << setw(15) << "INTEREST RATE | " << setw(15) << "MONTHLY WAGE | " << setw(13) << "TOTAL PAYMENT" << endl;
for(double p = 5.; p <= 8.; p += 1./8) {
montpay = credit * p / MONT / PER * pow(1 + p / MONT / PER, period * MONT) / (pow(1 + p / MONT / PER, period * MONT) - 1);
cout << setw(9) << fixed << setprecision(3) << p << "%" << setw(15) << fixed << setprecision(2) << montpay << setw(16) << fixed << setprecision(2) << montpay * period * MONT << endl;
}
return 0;
}
//Редактор не сохраняет форматирование => прикрепил .cpp файл
Uses crt;
Var m:array[1..1000] of integer;
I,sr,n:integer;
Begin
Clrscr;
Writeln('Введите размер массива');
Readln(n);
For i:=1 to n do
Begin
m[i]:=random(30)+1;
Write(m[i],' ');
Sr:=sr+m[i];
End;
Writeln;
Writeln(' Сред. Арф. = ',sr div n);
Readkey;
End.
3*10
30+5
35+1
36+1
Если я правильно поняла вопрос
Var x: real;
begin
readln(x);
if x>=0 then x:= writeln(x*2) else x:= writeln(x/2);
<span>end.
</span>Второй вариант:
var x: real;
begin
readln(x);
if x>=0 then x:=x*2 else x:= x/2;
writeln(x)
end.