Чтобы набирать текст в текстовом редакторе
//прога на Pascal`e
var
x: real;
function f (a:real):real;
begin
f:= (sqr(cos(a)) - 5) / (abs(a) + 3);
end;
begin
write ('Введите x: ');
readln (x);
write ('A = ', f(x));
end.
В отличие от цикла while, условие вычисляется после
очередной итерации цикла, и если оно истинно, то происходит выход из цикла.
Таким образом, операторы, образующие тело цикла оператора
repeat, выполняются по крайней мере один раз.
Цикл повторяется до тех пор, пока условие записанное после ключевого слова until, будет ложным (не выполняется). Как только это условие выполнится, происходит выход из цикла.
1)Цикл выполнится 1 раз:
i:=i-1=-1
s=-1/1=-1
-1<1 условие выполняется, цикл прерывается.
2)цикл выполнится 3 раза:
1. i:=i+1=1; 1>2 условие не выполняется, цикл продолжается.
2. i:=i+1=2; 2>2 условие не выполняется, цикл продолжается.
3. i:=i+1=3 3>2 условие выполняется, цикл прерывается.
Int _tmain(int argc, _TCHAR* argv[])
{<span>
int s, rashod, ben;</span>
<span> printf("Расстояние до дачи (км): \n", s);</span><span>
printf("Расход бензина ( литров на 100 км пробега): \n", rashod);</span><span>
printf("Цена литра бензина (руб.): \n", ben);</span><span>
printf("Поездка на дачу и обратно обойдется в \n", (2*s/100)*rashod*ben);</span>
<span> return 0;
</span><span>}
s - расстояние
rashod - расход
ben - цена 1 литра</span>
Var x:integer;
begin
readln(x);
for var i:=2 to x do
if (x mod i)=0 then begin
writeln('delitel: ',i);
exit;
end;
<span>end.</span>