Var n, i: integer; summa: real; begin write('сколько слагаемых? '); readln(n); for i : = 1 to n do summa : = summa + sqr(i + 1) ; writeln('сумма ряда = ', summa); end.
Спасибо
Ответ дал: Гость
1) 24+18+12=54 (ч.) 2) 54-35=19 (ч.) не любят не один вид спорта. 3) 10+8+5=23 (ч.) - любят 2 или больше видов спорта. 4) 23-19=4 (ч.) - любят все три вида спорта.
ответ: 4 человека любят три вида спорта.
Ответ дал: Гость
2)program nah;
var s: string;
begin
s: = 'рэки,горы и '; (присвоение значения)
writeln (s); (вывод)
delete (s, 5,6); (удаление из строки s начиная с 5-го символа 6) символа)
Популярные вопросы