Решение на паскале.
Объяснение:
Первая задача:
var summa, kolichestvo : integer;
begin
summa := 2;
while summa <= 100 do
begin
summa := summa + 8;
kolichestvo := kolichestvo + 1;
end;
writeln('Количество = ', kolichestvo);
end.
Вторая задача:
var a : array[1..20] of integer;
kolpol, sumot, i : integer;
begin
for i:=1 to 20 do
Read(a[i]);
for i := 1 to 20 do
if a[i] >= 0 then
kolpol := kolpol +1
else
sumot := sumot + a[i];
writeln('Количество положительных = ', kolpol);
writeln('Сумма отрицательных = ', sumot);
end.
Первый товарищ - FOR
Цикл FOR используется в случае, если нам известно количество итераций.
for (счетчик = значение; счетчик < значение; шаг цикла) {
тело цикла;
}
Сначала присваивается первоначальное значение счетчику, после чего ставится точка с запятой.Затем задается конечное значение счетчика цикла. После того, как значение счетчика достигнет указанного предела, цикл завершится. Снова ставим точку с запятой. Задаем шаг цикла. Шаг цикла — это значение, на которое будет увеличиваться или уменьшаться счетчик цикла при каждом проходе.WHILE
Если мы не знаем количество итераций цикла, то используем while (или do - while)
while (Условие) {
Тело цикла;
}
Данный цикл будет выполняться, пока условие, указанное в круглых скобках является истиной.
DO-WHILE
Цикл do while очень похож на цикл while. Единственное различие между ними заключается в том, что при выполнении цикла do while цикл будет выполнен один раз не зависимо от условия.
do {
Тело цикла;
} while (Условие)
На рисунке слева - блок схема для for и while, справа do - while.
ответ:Я написала что нет
Объяснение:
Проверила