Var a,V,S:integer;
Begin
writeln('Enter A:');
readln(a);
V:=a*3;
S:=6*2*a;
writeln('V=',V,'; S=',S,';');
end.
var a,b,sum,dob,raz:integer;
Begin
writeln('Enter A:');
readln(a);
writeln('Enter B:');
readln(b);
sum:=abs(a)+abs(b);
raz:=abs(a)-abs(b);
dob:=abs(a)*abs(b);
writeln('Summa=',sum,'; Raznost=',raz,'; Dobutok=',dob,';');
<span>end.</span>
Var x, y: real;
begin
readln(x, y);
if ((x > 0) and (y > 0)) then writeln('true') else writeln('false');
<span>end.
В первой четверти X и </span><span>Y положительны)</span>
Var a,b, d:integer;
begin
read (d);
a:=d div 100;
b:=d div 10 mod 10;
if a>b then Write ('перша більша') else Write ('друга більша')
end.
На экран будет выводится:
А) 45
y := 0; FOR x := 1 TO 9 do y := y + x;
В начале y=0;
Потом начинается цикл : от 1 до 9 (включительно и с шагом в единицу(+1))
X:=1;
y:=0+1; y:=1;
x:=2; y:=1;
y:=x+y; y:=2+1; y:=3 ;
x:=3;y:=3; y:=3+3; y=6;
x:=4;y:=6; y:=4+6; y=10;
и т.д. по аналогии
Б)0
y := 0; FOR x := 1 TO 5 do y := y * x; Writeln (y);
При умножение числа на 0 будет 0;
Т.к. y := 0; , то в равенстве y := y * x; , при любом значение x, y будет = 0