<span>Вводится в паскале последовательность из N целых чисел .Является ли последовательность возрастающей? С использованием Repeat или While.
Нет, не является.</span>
Var
a, b, c: integer;
begin
readln(a, b, c); //вводим a b c
if a > 0 then writeln(a*a) //если a > 0 вывести квадрат a
else
writeln(a); //иначе вывести a
if b > 0 then writeln(b*b) //если b > 0 вывести квадрат b
else
writeln(b); //иначе вывести b
if c > 0 then writeln(c*c) //если c > 0 вывести квадрат c
else
writeln(c); //иначе вывести c
<span>end.</span>
Проблема: Социальные сети отнимают много времени. Забивают голову ненужной информацией. Из-за них мы реже стали видится с друзьями, теперь на первом месте виртуальное общение. И все в таком духе
Решение задач - в прилагаемом файле. Решение приводится, что называется, "в лоб", то есть без оптимизации (такого в условиях нет). Это в первую очередь, относится к 1 задаче, хотя и остальные можно улучшить, если потребуется.
Алгоритм:
<span>Перебирать элементы массива в цикле и присваивать им значения формулы. ВЫводить элемент ан экран без перевоад строки. Если элемент массива меньше 50 приплюсовывать к значению суммы и увеличивать счетчик. </span>
<span>Вывести на экран отношение суммы к значению счетчика.</span>