Var
i: integer;
begin
readln(i);
if i mod 2 = 0 then
writeln(i);
else
writeln(i-1);
end
Флеш память- разновидность полупроводниковой <span>технологии электрически перепрограммируемой памяти. Диск смотря какой компакт диск или жесткий диск который в компе.</span>
#include "pch.h"
#include <iostream>
#include <clocale>
using namespace std;
int main() {
setlocale(LC_ALL, "");
int n, k, l;
cout << "Введите значение n: ";
cin >> n;
cout << "Введите значение k: ";
cin >> k;
cout << "Введите значение l: ";
cin >> l;
int *arr = new int[n];
cout << "Заполните массив: ";
for (int i = 0; i < n; i++) {
cin >> arr[i];
}
int sum = 0;
for (int i = k; i <= l; i++) {
sum += arr[i];
}
cout << "Сумма элементов массива с номерами от K до L включительно = " << sum << endl;
return 0;
}
<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ArrRandom(5,0,15).Println.Aggregate(1,(p,q)->p*q).Println
end.
<u>Пример</u>
6 13 7 2 7
7644