//PascalABC.NET
var
b : array of integer;
m : integer;
begin
// Ввод данных
var n := ReadInteger('Введите число N всех чисел массива: ');
var k := ReadInteger('Введите число К "красивых" чисел: ');
writeln('Введите все числа в массиве');
var a := ReadArrInteger(n);
// Резервируем место для слагаемых
b := new integer[k];
// Просмотрим все данные числа
foreach var i in a do
// Выберем только кратные трем
if i mod 3 = 0 then begin
// Если есть свободное место, поместим туда
m := b.FindIndex(x -> x=0);
if m <> -1 then b[m] := i
else
// Если свободного места нет, найдем наибольший элемент
// и заменим его
begin
m := b.FindIndex(x -> (x>i) and (x=b.Max));
if m <> -1 then b[m] := i;
end;
end;
// Выведем сумму
write('Сумма элементов - ', b.Sum)
end.
<span>Гелиоцентрическая Система, </span>
<span>Система сфер </span>
<span>геоцентрическая Система</span>
К сожалению на Питоне не пишу, но вот вам код на С++
//------------------------
#include <iostream>
#include <string>
#include <fstream>
#include <iterator>
using namespace std;
int main(){
setlocale (LC_ALL, "rus")
// Запись в файл
ofstream fout("favorites.dat");
fout<< "Ваш текст";
fout.close();
// чтение файла
ifstream ifs("favorites.dat");
if(ifs.is_open())
{
string s;
s.assign((istreambuf_iterator<char>(ifs.rdbuf())), istreambuf_iterator<char>());
cout << s;
ifs.close();
}
else return 0;
return 0;
}
Program z1;
var y,a,b:real;
writeln('введите а и b');
readln(a,b);
if (a+b) mod (a-b)=0 then
writeln('значение данной функции является целым числом')
else
writeln('значение данной функции не является целым числом');
if a=b then
writeln ('функция не существует');
end.
10*15=150 кв. см размер документа
150*600 = 90000 точек содержит документ
90000*4 = 360000 бит = 45000 байт = 43 Кб
