Синформатикой! 1 дано: writeln (s: 6: 2); если s=114, 1464, то на экране появится 2. оператор вывода write (6, 12, 22, 200); результат:

1.

var s : real : = 114.1464;

begin

    writeln (s: 6: 2);

end.

114.15

2.

begin

    write (6,12,22,200);

end.

61222200

Program kvadrat; var l,i,j: integer; begin  write('l= ');   readln(l);   if l< =10000 then    for i: =1 to l do      begin      for j: =1 to l do        begin          if ((i=1) or (i=l)) or ((j=1) or (j=l)) then            write('*')          else            write(' ');         end;       writeln;     end; end. вроде все правильно написал

1)var a: integer; begin       write('введите число: ');       read(a);       if (a div 10 + a mod 10 + a div 10 mod 10) mod 2 = 0       then writeln('сумма цифр четна')                             else writeln('сумма цифр нечетна') end.2)var a: integer; begin      write('введите число: ');     read(a);       if a mod 2 = 0 then writeln('последняя цифра числа четная')                            else writeln('последняя цифра числа нечетная')end.