begin
var k := 10;
var x := ReadArrReal('Введи 10 элементов Х:', k);
var y := SeqGen(k, n -> (x[n - 1] / 2) ** n / n, 1).Sum;
y.Println;
end.
Int s = 0;
for(i=5; i<=30; i++){
s+=i;
}
print(s)
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
N, M: ЦЕЛ;
УКАЗ
Вывод.Цепь("Введите число тюльпанов на грядке: ");
N := Приём.Число();
Вывод.Цепь("^Введите число лилий на грядке: ");
M := Приём.Число();
Вывод.ЧЦел("^Всего цветов Оля посадила: %d шт.", 5 * N + 7 * M, 0, 0, 0)
КОН Задание.
#include <iostream>
#include <clocale>
#include <cstdlib>
using namespace std;
void main(){
setlocale(LC_ALL, "");
int x, y;
cout << "Введите X и Y =>";
cin >> x >> y;
if (x == 0 || y == 0) { cout << "\nНе используйте 0!\n"; system("Pause"); exit(1); }
if (x > 0 && y > 0) cout << "\nПервая четверть\n";
else if (x < 0 && y > 0) cout << "\nВторая четверть\n";
else if (x < 0 && y < 0) cout << "\nТретья четверть\n";
else if (x > 0 && y < 0) cout << "\nЧетвертая четверть\n";
system("Pause");}