Ответ:
Зайди в статус, нажми на 3 точки и "Приватность статуса", а там на "Мои контакты"
Uses crt;
var k,n:integer;
begin
clrscr;
writeln ('введи день года от 1 до 365');
readln (k);
if (k>=1) and (k<=365) then
begin
n:=k mod 7;
case n of
1: writeln ('понедельник');
2: writeln ('вторник');
3: writeln ('среда');
4: writeln ('четверг);
5: writeln ('пятница');
6: writeln ('суббота');
0: writeln ('воскресенье');
end;
end
else writeln ('Неверный ввод');
readln;
end.
uses crt;
var k,n,d:integer;
begin
clrscr;
writeln ('Введи с какого дня недели 1 января (1-пон, 2-вт и тд до 7)');
Readln (d);
writeln ('введи день года от 1 до 365');
readln (k);
if (k>=1) and (k<=365) and (d>=1) and (d<8) then
begin
n:=k mod 7 +d-1;
case n of
1: writeln ('понедельник');
2: writeln ('вторник');
3: writeln ('среда');
4: writeln ('четверг');
5: writeln ('пятница');
6: writeln ('суббота');
0,7: writeln ('воскресенье');
end;
end
else writeln ('Неверный ввод');
readln;
end.
16 путей
АБДИК, АБДЖК, АБВДИК, АБВДЖК, АБВЖК, АВДИК, АВДЖК, АВЖК, АГВДИК, АГВДЖК, АГВЖК, АГЕВДИК,АГЕВДЖК, АГЕВЖК, АГЕЖК, АГЕК
Var p real;
begin
readln(p);
if (p>40) and (x<60) then writeln ('Первая категория');
if (p>61) and (x<75) then writeln ('Вторая категория');
if (p>76) and (x<100) then writeln ('Третья категория');
readln;
end,
Ответ:
#include <iostream>
#include <conio.h>
#include <cstdlib>
#include <ctime>
using namespace std;
void Function()
{
int number;
srand(time(0));
cout << "Введите число" << endl;
for (;;)
{
cin >> number;
if (number == 0)
{
break;
}
for (;;)
{
int x = rand();
if (x < number)
{
cout << x << endl;
break;
}
}
}
}
int main()
{
setlocale(LC_ALL, "Russian");
Function();
_getch();
return 0;
}
Объяснение:
Подбирает каждай раз рандомное число , пока оно не станет меньше чем ввел пользователь. (Отрицательные числа не вводить, т.к rand генерирует только положительные, хотя можно и подшаманить чтобы генерировал отрицательные)