Program gt;
var n,i:integer;
s:real;
begin
read(n);
for i:=1 to n do
begin
read;
s:=s+sqrt(i);
end;
writeln(s:0:3);
<span>end.</span>
Var
a,s:integer;
begin
s:=0;
repeat
readln(a);
s:=s+a;
until a=0;
writeln('Сумма чисел: ',s);
<span>end</span>
19=16+2+1=10011(2)
<span>ответ 2)</span>
Пётр удалил 14 страниц. Сначала ноходим общее количество элементов на всех страницах = 24000. Тоесть однобайтовий документ имеет размер 24000б, а двубайтовый 48000б. Если в однобайтовому фаеле изменить число строк на 30, то 30+30 = 60, получаем размер файла 48000. Потом отнимаем от 48000 число 31500, получаем 16500б - это количество символов на тех страницах которые остались. Далее делим на 2400 - количество символов на 1 странице. Мы получили 6 страниц, тоесть 14 страниц Пётр удалил.
program kvadrat;
var i, n: integer;
begin
writeln ('Таблица квадратов');
writeln ('-----------------');
writeln (' Число Квадрат');
writeln ('-----------------');
i:= 1;
n:= 10;
for i:=1 to n do
begin
writeln (' ',i,' ', sqr(i));
end;
writeln ('-----------------');
end.