<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var c1:=ReadReal('Цена первой покупки:');
var c2:=ReadReal('Цена второй покупки:');
var c3:=ReadReal('Цена третьей покупки:');
var s:=c1+c2+c3; Writeln('Сумма к оплате: ',s);
var p:=ReadReal('Внесена сумма:');
Writeln('Причитается сдача: ',p-s)
end.
<u>Пример</u>
Цена первой покупки: 152.40
Цена второй покупки: 375
Цена третьей покупки: 140.62
Сумма к оплате: 668.02
Внесена сумма: 700
Причитается сдача: 31.98
№ 9 не знаю((((((((((((((((((((((((((((((((
Я уж забывать эту тему стал,
Дано:
I = 1.5 Кб
K = 3072
Найти: N — ?
Решение:
I = I/K
N=2i
I= 1,5Кб = 1,5 • 1024 • 8 = 12 288 бит.
I = 12288/3072 = 4 бита
N = 24 =16 символов
#include <iostream>
#include <vector>
using namespace std;
int main()
{
int n, m;
cin >> n >> m;
vector<vector<int>> matrix(n, vector<int>(m));
for (int i = 0; i < n; i++)
{
for (int j = 0; j < m; j++)
{
cin >> matrix[i][j];
}
}
vector<int> ans;
for (int i = 0; i < m; i++)
{
int pr = 1;
for (int j = 0; j < n; j++)
{
pr *= matrix[j][i];
}
ans.push_back(pr);
}
for (auto x : ans)
{
cout << x << " ";
}
return 0;
}
Значения элементов матрицы вводятся с клавиатуры. В векторе ans лежит ответ.