Pascal дано предложение. если в этом предложении первая буква встречается более 3 раз, заменить её на восклицательный знак. исходный текст задать самостоятельно таким образом, чтобы решалась .

//PascalABC.NET 3.1 сборка 1239
begin
    var s := ReadlnString('s =');
    var c := s[1];
    
    if s.ToLower().ToCharArray().Count(x -> x = c) >= 3 then begin
        s := s.Replace(LowCase(c), '!');
        s := s.Replace(UpCase(c), '!');
    end;
    
    writeln(s);
end.

Вводим 200 Вывод 220

Объяснение:

var s, n, i: integer;

begin

for i:=200 to 250 do   //Создаём цикл, который будет прогонять

begin                           // значения S от 200 до 250

   s:=i;                          // логичнее начинать i c 200 т.к. while работает

   n := 100;                 // при условии, что s- 100 >= 100

   while s - n >= 100 do

   begin

        s := s + 20;

        n := n + 40;

   end;

writeln(i, ' ',s)     // вывод всех значений от 200 до 250

end;                   // выбираем нужный

end.

end.

1)

program FunctionIFfull;

uses crt;

var

 x, y : real;

begin

 clrscr;

 write('x = ');

 readln(x);

 if x>=1 then y:= sqrt(3*x+4)  

 else  

     if x<=-1 then y:= sqr(x)+4*x  

     else y:=4*sqr(x)-2*x+3;

 writeln('y = ', y:8:2);

 readln;

end.

2)

program FunctionIFshort;

uses crt;

var

 x, y : real;

begin

 clrscr;

 write('x = ');

 readln(x);

 if x>=1 then y:= sqrt(3*x+4);

 if x<=-1 then y:= sqr(x)+4*x;

 if (x>-1) and (x<1) then y:= 4*sqr(x)-2*x+3;

 writeln('y = ', y:8:2);

 readln;

end.

Объяснение:

1. Повна команда розгалуження має вигляд

if < логічний вираз > then <команда 1> else < команда 2 >;

2. Коротка команда розгалуження має вигляд

if <логічний вираз > then <команда 1>;