2)var x,y:integer;beginreadln (x,y); while x<16 do begin if x>y then beginx:=x-2;y:=y+4 end else beginx:=x+5;y:=y-3; end; end;writeln ('x=',x,'y=',y);end.
криво но работает,там в таблице строка слева на право 16 11 16 12 и так вниз,так условие постоянно не выполняется (16<16 не выполняется)
3)var x,y:real;beginreadln (x,y);while x<0 dobeginif x<y thenbeginx:=x+1;y:=y/2;endelsebeginx:=x+3;y:=y-2;end;end;x:=x-5;y:=y+3;writeln ('x=',x,'y=',y);end.
таблицу сам
Прости, скинуть текстом не смогу т.к. за школным пк делал.
<em>Microsoft QBasic 1.0</em>
DIM p AS DOUBLE
p = 1
FOR i = 5 TO 27
p = p * i ^ 2
NEXT i
PRINT p
<u>Результат</u>
2.05846315812941D+53
Точное значение (для контроля) вычисленное в программе компьютерной математики: 205846315812941087891721086815311205761024000000000000
Var a:array [1..8,1..8] of integer;
j,k,n:integer;
begin
randomize;
for j:=1 to 8 do
begin
for k:=1 to 8 do
begin
a[j,k]:=random(9)+1;
write (a[j,k]:2);
end;
writeln;
end;
repeat
write ('N = ');
readln (n);
until n in [1..8];
for j:=1 to 8 do write (a[n,j]:3);
writeln;
readln;
end.