с информатикой Какое значение получит переменная a после выполнения серии команд
a:=5;
b:=2;
a:=b * a - SQR(a) ;
1) -15
2) 15
3) 40
4) 10
2. Что будет выведено на экран после выполнения серии команд
a:=5;
b:=2;
a:=b-a mod 4;
write(`a=`,a);
1) 2
2) a=2
3) a=1
4) a=0
3.Что будет выведено на экран после выполнения серии команд
a:=4;
b:=2;
a:=b-a div 3;
write(a);
1) 12
2) 5
3) 1.7
4) 1
4. Что будет выведено на экран после выполнения серии команд
a:=4;
b:=8;
a:=a / b - 5;
write(abs(a));
1) 4.75
2) 4.5
3) 5.25
4) -4.5
5. Переменная а является целой. В какой строке при использовании команды присвоить значение
допущена ошибка ?
1) a:=SQRT(a);
2) a:=sqr(5);
3) a:=a / 5-1;
4) a:=abs(2*a);
6. Чему равно значение выражения:
sqrt(16)*2 – sqr(3) – 20/5
1) 5
2) -6
3) –5
4) 6
7. Запишите значение переменной s, полученное в результате работы следующей программы.
Var s,k: integer;
Begin
s := 0;
for k := 3 to 7 do
s := s + 6;
writeln(s);
End.
1) 24
2) 30
3) 36
4) 16

//PascalABC.Net
function DelWord(s:string):string;
var
  i,n:integer;
begin
  n:=length(s);
  i:=n;
  repeat
    if i>=1 then Dec(i);
  until s[i]=' ';
  Delete(s,i+1,n-i);
  DelWord:=s
end;

var
  st:string;
begin
  Write('Введите строку: '); Readln(st);
  Writeln('Результат: ',DelWord(st))
end.

Тестовое решение:
Введите строку: А роза упала на лапу Азора
Результат: А роза упала на лапу

//PascalABC.Net
function DescDigits(s:string):boolean;
var
  desc:boolean;
  i,n:integer;
  c1,c2:char;
begin
  n:=length(s);
  desc:=true;
  c1:='A'; { главное, чтобы символ был "старше" любой цифры }
  i:=1;
  repeat
    c2:=s[i];
    if c2 in ['0'..'9'] then
      if c2<c1 then c1:=c2 else desc:=false;
    Inc(i)
  until (i>n) or (not desc);
  DescDigits:=desc
end;

var
  s:string;
begin
  Write('Введите строку: '); Readln(s);
  if DescDigits(s) then Writeln('true') else Writeln('false')
end.

Тестовое решение:
Введите строку: Пример строки с цифрами 98 по убыванию 7 6,5, так4тоже1можно!
true

Вариант первой программы для Borland Pascal 7.01
uses Crt;
function DelWord(s:string):string;
var
  i,n:integer;
begin
  n:=length(s);
  i:=n;
  repeat
    if i>=1 then Dec(i);
  until s[i]=' ';
  Delete(s,i+1,n-i);
  DelWord:=s
end;

var
  st:string;
begin
  ClrScr; 
  Write('Введите строку: '); Readln(st);
  Writeln('Результат: ',DelWord(st));
  ReadKey
end.

При автоматическом переводе могут возникнуть много проблем

в зависимости от контекста слова могут иметь разное значениеперевод пословиц, поговорок и прочих стандартных словосочетаний может не существовать на другом языке или может быть передан не верноотрицательные предложения могут перейти в положительныеигра слов часто непереводиманедостаток информации одного текста не может быть восполнен. Например в английском у глаголов нет родов, а в русском естьдругая причина потери смыслаэлектронный переводчик может не знать, как переводится слово или фраза, или не иметь всех вариантов перевода