Дана последовательность чисел
найти сумму чисел меньше 10 или больше 50
написать программу на языке паскаль

информатика 9 класс

152

369

Посмотреть ответы 2

Ответы на вопрос:

volck223

Информатика

4,6(84 оценок)

pascalabc.net

begin

var n : = readinteger('число членов последовательности: ');

var s : = readseqinteger('вводите: ', n)

.where(p -> (p < 10) or (p > ;

println('сумма отобранных членов равна', s)

end.

Qwertysiq

Информатика

4,7(39 оценок)

Var a, aa, ab: integer; begin write('введите число а: '); readln(a); aa: = a*a; aa: = aa*aa; writeln('ответ на пункт a): ', aa); ab: = a*a; ab: = ab*a; {теперь a2 = a^3} ab: = ab*ab; writeln('ответ на пункт б): ', ab); end.