Найти среднее арифметическое всех целых чисел от 100 до 1000

Ответы

MatthewSan 22.06.2020 22:05

Program Task;
Var a, b, i: Integer;
Begin
For i := 100 To 1000 Do
Begin
a := a + i;
b := b + 1;
End;
WriteLn('Результат: ', (a / b):4:2);
ReadLn;
End.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

Shkola17032004 31.03.2020 00:14

Ане требовалось нарисовать блок-схему для решения следующей задачи: Вводится число. Если оно положительное, необходимо увеличить его в 2 раза, иначе - уменьшить на 5 . Аня...

Артем222211 31.03.2020 00:38

Нужно записать систему уравнений через функцию ЕСЛИ. по трем примерам1,=(2+SIN(A14)^2) /1+(A14)^2 я так думаю, что это для первой2,=ЕСЛИ(A14 =0;3*A14^2/1+A14^2);ЕСЛИ(A14 0;КОРЕНЬ(1+(2*(A14)/1+(A14)^2)))...

niavente 31.03.2020 01:46

Для подключения внешних устройств к USB-концентратору в нем предусмотрены порты, заканчивающиеся разъёмами. нет да...

observatorshkip06tpd 31.03.2020 01:46

Подскажи как на решу ВПР после выполнения варианта отправить работу учителю? ...

varvaranepomnas 31.03.2020 00:56

Знайдіть в інтернеті сайт де надаються послуги безкоштовного хостингу.Запишіть у документ адресу сайта та основні характеристики хостингу(обсяг дискового для сайта,наявність...

mridrazov 01.12.2019 19:49

Напишите программу на массивывведите с клавиатуры число х и определите количество элементов массива,расстояние от которых до х в два раза меньше ,чем максимальное расстояние...

zontikmily 01.12.2019 19:47

Дана блок-схема. какое значение будет иметь z на выходе, если x=17?...

Vikakotik5 01.12.2019 19:46

Решите пример по информатике на фото...

bkdekvrfasus 28.11.2019 10:06

Однажды вечером вася решил посмотреть фильм на ютубе. фильм весит x mб. скорость васиного интернета — v мбит/сек. фильм имеет продолжительность t минут. составь программу,...

Rostik9999 28.11.2019 09:57

Написать программу нахождения значений функции y и вывода результата с точностью до 0.01алгоритм + программа паскаль...

Найти среднее арифметическое всех целых чисел от 100 до 1000

Популярные вопросы