<span>Строка №6 - числу нельзя присвоить какое нибудь значение.
Строки №8 и №10 - целочисленным нельзя присвоить дробное значение.
Строка №7 - между 7 и 8 должна стоять точка, а не запятая.
Вот изменённая программа:
program qq;
var a, b, x, y: real;
begin
a := 5;
x := 10;
y := 7.8;
b := 2.5;
x := 2*(a + y);
a := b + x;
end.</span>
Function NOD(a, b: Integer): Integer;
Var tmp, r: Integer;
Begin
If b > a Then
Begin
tmp := a;
a := b;
b := tmp;
End;
tmp := a;
While tmp > 0 Do
Begin
Result := tmp;
tmp := tmp - b;
End;
<span><span>End;
<em>Пример программы с использованием данной функции:</em>
</span>Program Example;
Var a, b: Integer;
Function NOD(a, b: Integer): Integer;
Var tmp, r: Integer;
Begin
If b > a Then
Begin
tmp := a;
a := b;
b := tmp;
End;
tmp := a;
While tmp > 0 Do
Begin
Result := tmp;
tmp := tmp - b;
End;
End;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('НОД: ', NOD(a, b));
ReadLn;
<span>End.</span></span>
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\";
ПОСТ
A = 5;
B = 10;
ПЕР
C, V: ЦЕЛ;
УКАЗ
C := 16;
ПОКА C >= 3 ВЫП
V := A * B * C;
Вывод.ЧЦел("%d; ", V, 0, 0, 0);
УМЕНЬШИТЬ(C, 1)
КОН;
C := 16;
ПОВТОРЯТЬ
V := A * B * C;
Вывод.ЧЦел<span>("%d; ", V, 0, 0, 0);
</span> УМЕНЬШИТЬ(C, 1)
ДО C < 3;
ОТ C := 16 ДО 3 ПО -1 ВЫП
V := A * B * C;
Вывод.ЧЦел<span>("%d; ", V, 0, 0, 0)
</span> КОН
КОН Задание.
Var b:array [1..255] of integer;
a, i, n:integer;
begin
readln(a);
i := 0;
while (a >= 1) do
begin
i := i + 1;
<span> b[i] := a mod 2;
</span><span> a := a div 2;
</span> end;
<span> n := i;
</span><span> for i := n downto 1 do </span><span>write(b[i]);
</span><span>end.
Проверено:)</span>