<em>// PascalABC.NET 3.2, сборка 1399 от 08.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqReal(3).Select(x->x<0?sqr(x*x):x*x).Println
end.
<u>Пример</u>
3.18 -5.722 1.94
10.1124 1071.99167796866 3.7636
электровоз вагон пассажиры-это состав.,действия-возить перевозить останавливаться на остановках. признаки-вагон пассажир окошко
Ответ:
Всего пирожков:719. В коробках:108. В кульках:171. В пакетах:440.
Рассмотрим фрагмент поблочно.
<span>FOR i=1 TO 10
A(i)=5+i
NEXT i
Здесь в цикле для i, меняющегося от 1 до 10, в массив А помещаются значения i+5, т.е. 6, 7, 8, .. 15.
</span><span>FOR i=1 TO 10
IF (A(i)+i >12) THEN
A(i)=A(i)+ i
ENDIF
NEXT i
В этом цикле i также меняется от 1 до 10. Для всех значений </span>элементов массива, которые в сумме со своим порядковым номером в массиве (индексом) превысят 12, значение элемента будет увеличено на этот номер.
a[1]+1=6+1=7. Это число меньше 12 и a[1] остается прежним. Так же, a[2]+2=9, a[3]+3=11 и они тоже не изменятся. Начиная с a]4]+4=13 значения будут изменяться на новые и в результате мы получим семь новых значений: 13, 15, 17,... 25. Все они будут нечетными. И еще одно нечетное значение (7) имеет a[2]. Итого, <em><u>нечетные значения будут иметь 8 элементов.</u></em>
Ниже приведен код программы на языке C++.
Все, что стоит в строчке после знака двойного слэша - это комментарии. Их можно не убирать - компилятор С++ их не прочтет и программа будет работать.
#include <iostream>
using namespace std;
//Подключили библиотеку ввода-вывода на экран.
int main() {
//Целочисленные переменные
int x, y, z;
int p;
//Считываем значения переменных x, y и z
cin >> x >> y >> z;
//если x меньше нуля, то выбираем наибльшее из х и у, иначе - наименьшее у и z
if (x < 0) {
//если х больше у, то в р записываем х, иначе - в р записываем у
if (x > y)
p = x;
else
p = y;
} else {
//если у меньше z, то в р записываем у, иначе - в р записываем z
if (y < z)
p = y;
else
p = z;
}
//Выводим на экран значение р
cout << p;
return 0;
}