Вроде должно быть так:
program primer;
var a,b,x:integer;
y:real;
begin
write('Введите значение переменной A');
readln(a);
write('Введите значение переменной B');
readln(b);
y:=2.4*abs((sqr(x)+b)/a)+(a-b)*sqr(sin(a-b)+sqrt(10)(x-b);
wtite('Результат',y:6:2);
readln
<span>end.</span>
Я думаю так:
И П С
П ИС
С И П
Возможные варианты очереди.
//прога на Pascal`e
var
i, n: byte;
sum, a : longint;
begin
read (n);
for i:=1 to n do
begin
read (a);
if a mod 7 = 0 then inc (sum, a);
end;
write (sum);
end.
Program prog;
uses crt;
var a:array[1..10] of integer;
s,i: integer;
begin
clrscr;
for i:=1 to 10 do begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to 10 do begin
if (a[i] mod 2 = 1) and (a[i]>6) then
s:=s+a[i];
end;
writeln('Сумма чисел s = ', s);
end.
Z = 1; i = 0
z = (z+x/2)/2 = (1+14/2)/2 = 4; i = i+1 = 0+1 = 1; i<4 ⇒ 1<4 ⇒ да
z = (z+x/2)/2 = (4+14/2)/2 = 5.5; i = i+1 = 1+1 = 2; i<4 ⇒ 2<4 ⇒ да
z = (z+x/2)/2 = (5.5+14/2)/2 = 6.25 (≈6.3); i = i+1 = 2+1 = 3; i<4 ⇒ 3<4 ⇒ да
z = (z+x/2)/2 = (6.25+14/2)/2 = 6.625 (≈6.7); i = i+1 = 3+1 = 4; i<4 ⇒ 4<4 ⇒ нет
Ответ: z = 6.625 (если округлять - 6.7)