1) var a,b,s:integer; begin Readln(a,b); s:=0; if (a<0)and(b<0) then begin a:=-a; b:=-b; end; if a<0 then for var i:=1 to b do s+=a else for var i:=1 to a do s+=b; WriteLn(s); end.
Пример: -7 15 -105
2) var n,s:integer; begin Readln(n); s:=0; for var i:=1 to n do s+=i; WriteLn(s); end.
Пример: 100 5050
3) var a,b,s:integer; begin Readln(a,b); s:=0; for var i:=a to b do s:=s+i*i; writeLn(s); end.
Пример: 2 5 54
4) var a,b,n:integer; begin Readln(a,b,n); for var i:=1 to n do write(random(b-a+1)+a,' '); end.
условие – выражение логического типа.
Цикл может не выполняться ни разу, если значение логического выражения сразу же оказывается ложь.
Серия команд, находящихся между begin и end, выполняются до тех пор, пока условие истинно.
Для того чтобы цикл завершился, необходимо, чтобы последовательность инструкций между BEGIN и END изменяла значение переменных, входящих в условие.
Цикл с постусловием (иначе цикл до) имеет вид:
Объяснение:
условие – выражение логического типа.
Цикл может не выполняться ни разу, если значение логического выражения сразу же оказывается ложь.
Серия команд, находящихся между begin и end, выполняются до тех пор, пока условие истинно.
Для того чтобы цикл завершился, необходимо, чтобы последовательность инструкций между BEGIN и END изменяла значение переменных, входящих в условие.
Цикл с постусловием (иначе цикл до) имеет вид: