<span>Диспе́рсия све́та (разложение света) — это явление зависимости абсолютного показателя преломления вещества от длины волны света (частотная дисперсия) , а также, от координаты (пространственная дисперсия) , или, что то же самое, зависимость фазовой скорости света в веществе от длины волны (или частоты) . Экспериментально открыта Ньютоном около 1672 года, хотя теоретически достаточно хорошо объяснена значительно позднее. </span>
Вопрос: Найти сумму четных чисел натурального ряда, начиная с числа n до m
Найти сумму четных чисел натурального ряда, начиная с числа n до m(m и n вводит пользователь).
Ответ: Без циклов:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
n, m, sum: integer;
begin
sum := 0;
repeat
writeln('Введите числ с которого начинается ряд');
readln(n);
writeln('Введите число которым заканчивается ряд');
readln(m);
until n
+,тоже не понимаю как програмировать
В) сохранил файл на рабочий стол. P.S. Это же необязательно даже не нужно
Картинка должна быть в папке с программой и быть в формате BMP
uses
graphabc;
var
n: string;
b: Picture;
s:integer;
begin
writeln('введите расстояние до зеркала');
readln(s);
write('Введите имя файла рисунка: ');
readln(n);
window.Clear;
b := Picture.Create(n);
b.Load(n);
b.Draw(50, 50);
b.FlipHorizontal;
b.Draw(50+2*s,50);
end.