Решить поскаль pascal a : = -75; b : = 33; a : = b * 2 - a; b : = a + b div 2; if a > = b then c : = a - b * 4 else c : = a + 25;

на третьей строчке происходит операция: 33*2 + 75 = 141

на четвертой: 141 + 33/2 (с округлением вниз) = 157

в условии выполняется else, потому что b больше а. c присваивается значение 141 + 25 = 166

к концу выполнения программы, a = 141, b = 157, c = 166

pascal abc

var

  s,news: string;

  k: longint;

begin

  k: =0;

  read(s);

  s: =s+' ';

  while s < > '' do

  begin

    if copy(s,1,pos(' ',s)) = ' ' then

    begin  

      delete(s,1,pos(' ',s));

      news: =news+' ';

    end

    else

    begin

      inc(k);

      news: =news+inttostr(k)+'.'+copy(s,1,pos(' ',s));

      delete(s,1,pos(' ',s));

    end;

  end;

  writeln(news);

end.

Var k,a,b,c: integer; begin writeln('введите первое число'); readln(a); writeln('введите второе число'); readln(b); writeln('введите третье число'); readln(c); writeln('введите число k'); readln(k); if a mod k = 0 then writeln('первое число кратно k') else writeln('первое число не кратно k'); if b mod k = 0 then writeln('второе число кратно k') else writeln('второе число не кратно k'); if c mod k = 0 then writeln('третье число кратно k') else writeln('третье число кратно k'); end.это первая !