Var i:Integer;s:real;
A:array[1..130]of integer;
Begin
S:=0;
For i:=1 to 130 do begin
A[i]:=random(100);
S:=s+A[i];
End;
S:=s/130;
Write(s);
End.
Заполни ячейки A2, B2, C2
Sub Calculate() 'Начало процедуры
Dim deposit As Integer 'величина вклада
Dim period As Integer 'срок вклада
Dim percent As Integer 'годовая процентная ставка
Dim day_percent As Double 'ежедневная процентная ставка
Dim profit As Double 'доход
Dim result As Double 'итог
deposit = Cells(2, 1).Value 'присваиваем величине вклада значение ячейки А2
period = Cells(2, 2).Value 'присваиваем сроку вклада значение ячейки B2
percent = Cells(2, 3).Value 'присваиваем годовой процентной ставке значение ячейки C2
day_percent = period * percent / 365 'ежедневная процентная ставка = срок вклада (умножаем) на годовую процентную ставку и (делим) на 365 дней
profit = deposit * day_percent / 100 'доход = величина вклада (умножаем) на ежедневную процентную ставку и (делим) на 100%
result = deposit + profit 'Итог = величина начального вклада (плюс) доход
Cells(6, 3).Value = profit 'заносим доход в ячейку C6
Cells(7, 3).Value = result 'заносим итог в ячейку C7
End Sub 'Конец процедуры
#include<iostream>
using namespace std;
int main()
{
long long N, M;
cout << "N = ", cin >> N;
M = N;
int Max = 0;
while(M > 0)
{
if (Max < M % 10) Max = M % 10;
M /= 10;
}
M = (N / 10)*10 + Max;
cout << "M = " << M;
return 0;
}
