Не уверен, правильно ли вас понял. Если что, пишите.
Одну единственную
for (интератор начала, условие выхода, шаг) { }
На первом фотографии после "s:=" напиши 2*w-13;
Во втором фотографии, где var, после переменных w,s добавь через запятую еще одну переменную - b. То есть должно быть исправлено следующим образом: var w,s,b:real; Но в этой программе (во втором фотографии) есть еще одна ошибка: w=2-13d. Исправь её следующим образом: w:=2*s*s-13*b;
В третьем фотографии выведитmся число 9;
В четвертом фотографии выведиться число 6.
Var a: integer;
begin
write('a = ');
readln(a);
if (a mod 2) = 0 then a := a div 4
else a := a*5;
writeln('a = ', a);
end.
<span> Цикл - это замечательное изобретение, которое, в сущности, и делает компьютеры такими ценными. Он позволяет многократно повторить любую часть программы. Цикл не может выполняться вечно, он заканчивается по какому-либо условию. Проверка этого условия может производиться в начале каждого повторяющегося шага, в этом случае цикл называется ПОКА. При проверке условия в конце каждого шага цикл называется ДО. Разновидностью цикла ДО является цикл ПЕРЕСЧЕТ.
10.1.Оператор цикла WHILE (цикл ПОКА).
Формат оператора:
WHILE логическое выражение DO;
Оператор будет повторятся пока истинно логическое выражение. Перед каждым повторением оператора значение логического выражения вычисляется заново. Если необходимо повторить несколько операторов, их следует объединить в составной оператор, т.е. заключить в операторные скобки begin ... end. Этот цикл может не выполниться ни разу, если условие при входе в него оказалось ложным. Таким образом, цикл ПОКА содержит условие повторения цикла.
Пример 1. Программа подсчета суммы S первых 1000 членов гармонического ряда 1+1/2+1/3+1/4+...1/N.
</span><span>Program Summa;
Var S:real;
N:integer;
Begin
S:=0;N:=0;
While n<1000 do
Begin
N:=n+1;
S:=s+1/n
End;
Writeln(s);
Readln
End.</span>
