Цикл работает с разными интервалами. Допустим от -1 до 1 будет 2. От 1 до 2 будет 3. От 5 до 11 будет 38.
Объяснение:
program Sum_cifr;
var i, x, a, b, S:integer;
begin
readln(a, b);
S:=0;
for i:= a to b do
begin
x:=Abs(i); // делаем положительным число, если оно отрицательное
while x>0 do // цикл, в котором будет число
begin //будет разбиваться на цифры
S:= S+(x mod 10); // отсекаем у числа последнюю цифру
x:= x div 10; // и складываем, а после убираем последнюю
// цифру у самого числа
end;
end;
writeln(S)
end.
1)
program FunctionIFfull;
uses crt;
var
x, y : real;
begin
clrscr;
write('x = ');
readln(x);
if x>=1 then y:= sqrt(3*x+4)
else
if x<=-1 then y:= sqr(x)+4*x
else y:=4*sqr(x)-2*x+3;
writeln('y = ', y:8:2);
readln;
end.
2)
program FunctionIFshort;
uses crt;
var
x, y : real;
begin
clrscr;
write('x = ');
readln(x);
if x>=1 then y:= sqrt(3*x+4);
if x<=-1 then y:= sqr(x)+4*x;
if (x>-1) and (x<1) then y:= 4*sqr(x)-2*x+3;
writeln('y = ', y:8:2);
readln;
end.
Объяснение:
1. Повна команда розгалуження має вигляд
if < логічний вираз > then <команда 1> else < команда 2 >;
2. Коротка команда розгалуження має вигляд
if <логічний вираз > then <команда 1>;
