Так как (i:=1) и (пока i<5) и (в цикле i увеличивается с шагом +1), то цикл осуществляется 4 раза (для i=1, 2, 3 и 4)

первоначальное s=1

начинаем цикл:
i=1......................s:=1+1*(1+1)......................s=3
i=2......................s:=3+2*(2+1)......................s=9
i=3......................s:=9+3*(3+1)......................s=21
i=4......................s:=21+4*(4+1)....................s=41
конец цикла

Итого s=41

0 0

4 года назад

Состав семьи. Буквы (б,в)

ibdes [50]

Б) 8: 5 братьев и 3 сестры
в) да, если маляры - девушки (сёстры)

0 0

4 года назад

Ввести два массива по 10 чисел. Найти в каком массиве наибольшее число (Delphi/Pascal)

Алексей Спирин

Begin
var a := ReadArrInteger('Первый массив: ',10);
var b := ReadArrInteger('Второй массив: ',10);
write('Наибольшее число в');
if a.Max > b.Max then write(' первом')
else write('о втором');
writeln(' массиве.');
end.

0 0

1 год назад

Прочитать ещё 2 ответа