64

Помогите пожалуйста по информатике.…

brutus 14 марта 2023

Помогите пожалуйста по информатике. 1. Вычеслить сумму 1/1+2)+(2/2+3)+(3/3+4)+… +(99/99+100) 2. Найти среднее арифметическое всех целыхчисел от 100 до 200

категория: информатика

43

1) Program Posl; Uses crt; var i,res: integer; begin res: =0; clrscr; for i: =1 to 99 do res: =res+(1+(i+1); writeln ('Result: ',res); readkey; end.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Смотрите также:
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...