Регистрация
nadezhda980
01.05.2023 11:36
Информатика
Есть ответ 👍

Не работает интернет
Кто знает в чем проблема?

176
207
Посмотреть ответы 2

Ответы на вопрос:

Vomaster228
Vomaster228
4,4(77 оценок)

Возможно оплату за него давно не платили, либо лимит на него закончился.

Попробуй перезагрузить компьютер или зайди снова в эту программу. Оплати за него, если надо.

Даринка30000
Даринка30000
4,6(48 оценок)
Программы для 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. тестовое решение: введите количество элементов 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. тестовое решение: введите количество элементов n: 8 сумма 1+1/2++1/8 = 2.71785714285714

Популярно: Информатика