Первое фото - 40 страниц;
Второе - 500;
Третье - 50.
ХОТЯ могу и ошибаться.
Программы для PascalABC.Net
Для древних турбопаскалей требуется добавить две строки: первым оператором поставить
Uses Crt;
а предпоследним
Readkey;
var
i, n, s: integer;
begin
Write('Введите количество элементов n: '); Read(n);
s := 0;
for i := 1 to n do s := s + i;
Writeln('Сумма 1+2+...+', n, ' = ', s)
end.
<em><u>Тестовое решение:</u></em>
Введите количество элементов n: 10
Сумма 1+2+...+10 = 55
var
i, n: integer;
s:real;
begin
Write('Введите количество элементов n: '); Read(n);
s := 0;
for i := 1 to n do s := s + 1/i;
Writeln('Сумма 1+1/2+...+1/', n, ' = ', s)
end.
<em><u>Тестовое решение:</u></em>
Введите количество элементов n: 8
Сумма 1+1/2+...+1/8 = 2.71785714285714
Степень числа.
Например, 1*10^2+4*10^1+3*10^0+5*10^-1
будет записана как 1*
+4*
+3*
<span>С помощью естественного языка люди могут общаться понимая друг друга,а формальный свойствен только для общения с той или иной работой. </span>
Program n1;
var i,s,n: longint;
begin
s:=0;
readln(n);
for i:=1 to n do s:=s+sqr(i*2);
writeln(s);
end.