Лови. может напутал в составных каши, не повар хд
НАЧАЛО. sum=0 m=10 k=0
k《5.Да k=k+1 sum=k+m m=m-2.
КОНЕЦ .
Для заполнения значений Y:
в ячейку B4 записать значение 1,5;
выделить диапазон B3:B4;
используя маркер автозаполнения протянуть на вниз на нужное число строк.
Для заполнения значений Z:
в ячейку C4 записать значение -0.1;
выделить диапазон C3:C4;
используя маркер автозаполнения протянуть на вниз на нужное число строк.
1) Неправильное задание кажется, получается не целое выражение
1369875 (Бит) =
(Гб)
2) 5 (Гб) = 5*1024*1024*1024= 5 368 709 120 (Байт)
3) Переводим объём диска в Кб
700 (Мб) = 716 800 (Кб)
файлов поместится на диске размером 12457 (Кб)
//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
uses System.Linq;
function GetPrimes(n: integer): List<integer>;
begin
var primes := new List<integer>();
primes.Add(2);
for var i := 3 to n do
begin
if primes.All(x -> i mod x > 0 ) then
primes.Add(i);
end;
GetPrimes := primes;
end;
begin
var n := ReadInteger('n =');
var primes := GetPrimes(2 * n);
foreach var p in primes do
if primes.Contains(p + 2) then
writeln(p, ' ', p + 2);
end.