Программы для 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
Var
i,s,t,koldney:integer;
begin
writeln('введите количество дней');
readln(koldney);
for i:=1 to koldney do
begin
writeln('введите температуру в ', i, ' день');
readln(t);
if t<0 then
s:=s+1;
end;
writeln('количество дней с температурой ниже 0 = ', s);
readln;
end.
<span>диван тесто стол кресло, тесто конечно </span>
1. 1)6 2)3 3)6 4)11 5)13 6)8
2. 1, 2, 6, 8
3. 1, 2, 3, 5, 6, 8
4. 2, 8
5. 1, 2, 3, 4, 5, 6, 8