Объяснение:
экран монитора без изображения дает зеркальное отражение (видны окружающин предметы), частично зеркальное у книг с блестящей обложкой (видны окна и другие источники света) , у карточек оплаты за интернет, если есть спутниковая антенна, то она зеркало для телевизионных волн, покрытые никелем ручки у звуковой системы и т. д. Диффузное (в самых разных направлениях) у бумаги, карандаша, бутылочки с корректором текстов, салфеток и скатерти, пластмассы корпуса монитора и краски корпуса самого компьютера и т. д. Сходите на кухню - там примеров еще больше. Имейте ввиду что цветная поверхность дисков представляет собой дифракционное отражение с интерференционной картиной. Короче - осторожнее с радужными цветами (например, мыльным пузырем)
Вот ссылка на готовую прогу → https://yadi.sk/d/pRyX2bUGMIdWsw
Объяснение:
Это было сделана на среде программирования Delphi 7 в консольном режиме.
P.S: Код программы↓
var
i,s,n: longint; // объявляем переменные
begin
SetConsoleCP(1251); // для вывода в консоль русские символы
SetConsoleOutputCP(1251); // для вывода в консоль русские символы
write('Здравствуйте! Введите любое число: '); //вывод сообщения
readln(n); // запишем то, что написал пользователь
s:=0; // присвоим для начало 0
for i:=2 to n do
if i mod 2 = 0 then s:=s+i;
writeln('Ваше число: ', s); //выводим S
readln;
end.
Я плохо объясняю, но думаю ты понял.
=== C# 7.3 ===
using System;
using System.Collections.Generic;
using System.Linq;
namespace CSLear
{
class Program
{
static void Main(string[] args)
{
IEnumerable<int> TripleDigit = SeqGen(101, 100, x => x + 1);
Console.WriteLine($"Sum: {SeqSum(TripleDigit, x => x % 7 == 0)}");
Console.ReadKey();
}
public static int SeqSum(IEnumerable<int> Seq, Func<int, bool> Filter)
{
int Sum = 0;
foreach(var item in Seq)
{
if (Filter(item)) Sum += item;
}
return Sum;
}
public static IEnumerable<T> SeqGen<T>(int n, T first, Func<T, T> next)
{
yield return first;
T cur = first;
for (int seqlen = 0; seqlen < n - 1; seqlen++)
{
cur = next(cur);
yield return cur;
}
}
}
}