Определите, какие значения принимают выражения, если А = 1, В = 0, С = 0

правильно треугольник)

прогоняем числа от 10 до 99 в цикле, учитываем при выводе отрицательные числа.

на  tpascal:

var i: integer;

begin

for i: =10 to 99 do begin

if i mod 3 = 2 then

writeln (i,' ',-i,' ');

i: =i+1;

end;

readln

end.

в блок схемах не сильна

var n: integer;

s,s0: real;

begin

  n: =1;

  s: =10;

  repeat

      n: =n+1;

      s: = s + (100+p)*s0/100;

      s0: =(100+p)*s0/100;

  until s> 200;

  writeln(s);

end.

program obmen;

var a,b,c,x,y: integer;

begin

a: =x;

b: =a;

c: =b;

x: =c;

writeln (a,b,c)

end.