Program pr;
uses crt;
var
mas: array[1..10] of real;
sum: real;
i: integer;
Begin
sum:=0;
for i:=1 to 10 do
Begin
write('mas', i, ' = ');
readln(mas[i]);
sum:=sum + mas[i];
end;
writeln();
writeln('sum = ' , sum);
readln;
<span>end. </span>
Здесь ошибка в несоответствии типов данных в переменных.
это значит, что Вы присвоили переменным типы, но в них записываете несоответствующие данные.
в часности, тип bool или boolean - это особый тип данных. переменные этого типа могут иметь только два значения: true (правда) и false (неправда), но никак не числа, а в строчках 13, 16 и 19 переменной f были присвоены числовые значения. ошибка там.
p.s. если просить программу вывести переменную типа bool на экран, будет написано true или false.
Var f,n:integer;
Begin
f:=22
f:=f-20
For n:=1 to 5 do
f:=f+n;
Writeln(f)
<span>End.
f=17</span>
If (xa * xa + ya * ya) < r * r then внутри
if (xa * xa + ya * ya) > r * r then во вне
if (xa * xa + ya * ya) = r * r then на
1 вариант по векторам:
использовать Чертежник
алг
нач
сместиться на вектор (1,10)
опустить перо
сместиться на вектор (3,-5)
сместиться на вектор (1.6,0)
поднять перо
сместиться на вектор (1.4,5)
опустить перо
сместиться на вектор (-2.5,-9)
сместиться на вектор (-3.5,0)
поднять перо
сместиться на вектор (7,0)
опустить перо
сместиться на вектор (0,9)
сместиться на вектор (4,0)
сместиться на вектор (1,-1)
сместиться на вектор (0,-3)
сместиться на вектор (-1,-1)
сместиться на вектор (-4,0)
поднять перо
сместиться на вектор (6,-4)
опустить перо
сместиться на вектор (3.5,9)
сместиться на вектор (3.5,-9)
поднять перо
сместиться на вектор (-5.5,4)
опустить перо
сместиться на вектор (4,0)
поднять перо
сместиться в точку (0,0)
кон
2 вариант - написать:
использовать Чертежник
алг
нач
вещ n=55
лит m="УРА"
написать(n, m)
кон