Получится слово вторник.
<span>insert - это вставка одной строки в другую начиная отсчёт с начала слова,мы вставили s1 в строку s в 4 по счёту место,получилось торникг,дальше мы строку s2 вставляем в строку s на 1 место по счёту и получаем слово вторникг,дальше мы операцией delete удаляем 8 по счёту букву то есть букву г,вот так вот получаем слово вторник.</span>
Вот рабочая программа:
var
x,a,b,c,proiz,sum:integer;
begin
WriteLn('Введите 3-ех значное число');read(x);
a:=x mod 10;
b:= (x div 10) mod 10;
c:=x div 100;
sum:=a+b+c;
proiz:=a*b*c;
WriteLn('Произведение разрядов=', proiz);
WriteLn('Сумма разрядов=', sum);
end.
Ахахах ты что с другой планеты??? Это программа на компьютере в которой презентации делают!!!!)))))))
Вот держи)
var k,N,numb,min :integer;
begin
min:=30000;
readln(N);
for k:= 1 to N do
begin
readln(numb);
if (numb mod 10 = 4) and (numb < min) then
min:= numb;
end;
writeln(min);
<span>end.</span>
Ты сам в компьютере попробуй. Тут это не получится.