// pascalabc.net 3.2, сборка 1353 от 27.11.2016 // внимание! если программа не работает, обновите версию! begin var a: =readarrreal(12).select(x-> real(; writeln('тип массива ',a.gettype); writeln('максимальное нечетное: ',a.where(x-> trunc(x).isodd).max) end. пример 13 10 22 31 22 6 18 5 26 3 8 24 тип массива system.double[] максимальное нечетное: 31 // pascalabc.net 3.2, сборка 1353 от 27.11.2016 // внимание! если программа не работает, обновите версию! begin var c: =new char[10]; for var i: =0 to 9 do c[i]: =readlnchar; var c1: =c[9]; var c2: =c[8]; c: =c.where(a-> (a< > c1) and (a< > ; c.println(',') end. пример а п е л ь с и н е ь а,п,л,с,и,н
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Составьте магический квадрат 3х3 из чисел 1, 2, 3, 8, 9, 10, 15, 16, 17
дабы не делать многочисленные операции в пустую, от пользователя требуется ввод числа а, до которого будет идти итерация.(формат числа: a/b, ввод - а)
#include < iostream>
#include < iomanip>
int main()
{
int n;
float sum(1);
std: : cout < < "введите число a, до которого будут идти итерации(a/b): ";
std: : cin > > n;
for(float i = 2; i < n; i++)
sum *= i/(i+2);
std: : cout < < "результат = " < < std: : setprecision(5) < < sum < < std: : endl;
}