Решите пример в виде схемы.
пример- (963:3-34):7-24
Схема-
(наруйте в тетради)
29 б
​

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.

qbasic

? "введите стоимость книг и сумму денег соответсвенно через запятую"

input a,b

if a=b then 1 else 2

1 ? "" : goto 10

2 if a> b then 3 else 4

3 a-b=c

? "не хватает денег,доплатите"; c : goto 10

4 b-a=r

? "ваша здача"; r

10 end

var i: integer; begin  for i: = 2 to 14 do      writeln(i*i); end.

var a: array[1..5,1..3] of integer;

i,k,j,min,max: integer;

begin

  min=1000;

  max=-1000;

  for i: = 1 to 5 do

      for j: = 1 to 3 do begin

        a[i,j]: = random(256);

      if min> a[i,j] then min: =a[i,j];

          if max< a[i,j] then max: =a[i,j];

  end;

  writeln(min, max);

end.