Var
s, x: integer;
begin
s:=0;
repeat
readln(x);
s:=s+x;
until x = 0;
writeln(s);
end.
81 клетка получится в оэтом кводрате
Алгоритм-это набор инструкций.описывающий порядок действий исполнителя для достижения некоторого результата
Program soprotiv; {Название программы}
<span>var r1, r2:real; {Задаем переменные} </span>
<span>c:byte; </span>
<span>begin {Начало программы} </span>
<span>write ('Введите 1 сопротивление... '); {Вывод сообщения о вводе данных} </span>
<span>readln (r1); {Ввод данных с клавиатуры} </span>
<span>write ('Введите 2 сопротивление... '); {Вывод сообщения о вводе данных} </span>
<span>readln (r2); {Ввод данных с клавиатуры} </span>
<span>write ('Если соединение параллельное, то нажмите клавишу 1, если соединение последовательное - нажмите 0...'); {Вывод сообщения о вводе данных} </span>
<span>readln (c); {Ввод данных с клавиатуры} </span>
<span>if c=1 {условие} </span>
<span>then writeln ('Сопротивление электрической цепи, соединенной параллельно=',(r1*r2)/(r1+r2)) {Вывод значения, при параллельном соединении} </span>
<span>else writeln ('Сопротивление электрической цепи, соединенной последовательно=',(r1+r2)); {Вывод значения, при последовательном соединении} </span>
<span>end. {Конец программы} </span>
Const n=15;
var
a: array[1..n] of integer;
sa: real;
i: byte;
begin
writeln ('Введите ',n,' чисел: ');
sa:=0;
for i:=1 to n do begin;
read (a[i]);
sa:=sa+a[i];
end;
sa:=sa/i;
writeln ('Среднее арифметическое = ',sa);
end.
-------------------------------
Введите 15 чисел:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
Среднее арифметическое = 8