Код на C++:
#include <iostream>
#include <ctime>
#include <cmath>
using namespace std;
int main()
{
setlocale(LC_ALL, "rus");
srand(time(NULL));
short res = 0;
for(int i = 0; i < 3; i++)
{
res += (rand() % 6) + 1;
}
cout << pow(res, 2) << endl;
return 0;
};
Объяснение:
В переменную res мы прибавляем случайное число от 1 до 6 (случайное значение вычисляется при функции rand()). Потом мы число возводим в квадрат и выводим его
РЕЖИМЫ ДАТЧИКА СВЕТА: режим "Цвет". Датчик цвета умеет определять семь различных цветов: черный, синий, зеленый, желтый, красный, белый и коричневый цвета. Также если цвет определяется некорректно если предмет назодится далеко от датчика. Датчик определяет отсутствие цвета и приходит в состояние «без цвета».
Режим "Яркость отраженного света". РЕЖИМ ЯРКОСТЬ ОТРАЖЕННОГО СВЕТА: В режиме «яркость отраженного света» датчик цвета определяет яркость света, отраженного света светодиода датчика излучающего красный свет . Датчик использует шкалу от 0 (очень темный) до 100 (очень светлый) . Это означает, что ваш робот может быть запрограммирован таким образом, чтобы он двигался по белой поверхности до тех пор, пока не будет обнаружена черная линия, или чтобы он интерпретировал идентификационную карточку цветовым кодом.
РЕЖИМ ЯРКОСТЬ ВНЕШНЕГО ОСВЕЩЕНИЯ: В режиме«яркость внешнего освещения» датчик цвета определяет силу света, входящего в окошко из окружающей среды, например солнечного света или луча фонарика. Датчик использует шкалу от О (очень темный) до 100 (очень светлый) . Это означает, что ваш робот может быть запрограммирован таким образом, чтобы он подавал сигнал утром, когда восходит солнце, или чтобы он прекрашщал действие, если свет гаснет .
РЕЖИМ ЦВЕТОВ: Частота выборки датчика цвета составляет 1 кГц. Для наибольшей точности при выборе режима «Цвет» или «Яркость отраженного света» датчик следует расположить под прямым углом на расстоянии 10-15 мм к исследуемой поверхности, но не касаясь ее.
n,i:longint;
prev,cur, found :boolean;
s:string;
Begin
read(n,k);
for i := 2 to n do begin
s := inttostr(i);
sum := 0;
for j := 1 to length(s) do
sum := sum + strtoint(s[j]);
cur := (sum mod k) = 0;
found := found or (prev and cur);
if prev and cur then
writeln(i - 1,' ',i);
prev := cur;
end;
if not found then writeln('NO');
End.