Program calculator;
Var a,b: real;
Begin
Write('Первое число:');
readln (a);
Write('Второе число:');
readln (b);
Write('Результат: ',a+b);
End.
Следуйте инструкциям, Adobe Flash Player нужен для отображения некоторых веб-страниц.
B2 в pascal ABC NET<span>...........................................
B3 в pascal ABC NET:
const N = 1000;
var a: array [1..N] of integer; i, k, p, l: integer;
begin l := 0; p := 0; i := 1; readln(k); while k <> 0 do begin a[i] := k; p := i; i := i + 1; readln(k); end; for i := 1 to p do l := l - a[i]; writeln(l);end.</span>
<span>Функция length выводит длину строки, а значит количество символов в слове. Ответ 11 ( б ) </span>