Объяснение:
procedure colors();
var number: integer; //Номер цвета
mess: string; //Сообщение, которое будем выводить
begin
{Считывание значения}
write('Input number (1-4): ');
readln(number);
writeln();
mess:='';
case number of
1: mess := 'Color is white';
2: mess := 'Color is gray';
3: mess := 'Color is red';
4: mess := 'Color is blue';
else
mess := 'There is no such color';
end;
writeln(mess);
readln(); // удерживаем консоль
end;
begin
// Вызов процедуры
colors();
end.
#include <cstdlib>
#include <iostream>
#include <ctime>
#include <clocale>
#include <cmath>
using namespace std;
void area_determ(double coordx, double coordy) {
if (coordy < 0 || (coordy > 0 && coordx < 0.75)) {
cout << "Точка лежит вне области\n" << endl;
}
if (coordx > 0.75 && coordy > 0 && (sqrt(pow(coordx, 2) + pow(coordy, 2)) > 1)) {
cout << "Точка лежит внутри области\n" << endl;
}
else if ((coordx == 0.75 && sqrt(pow(coordx, 2) + pow(coordy, 2)) > 1) ||
(coordy == 0 && coordx > 1) ||
(coordx > 0.75 && sqrt(pow(coordx, 2) + pow(coordy, 2)) == 1)) {
cout << "Точка лежит на границе области\n" << endl;
}
}
int main() {
system("chcp 1251");
setlocale(LC_ALL, "Rus");
srand(time(NULL));
double x, y;
cout << "Введите координату x точки" << endl;
cin >> x;
cout << "Введите координату y точки" << endl;
cin >> y;
area_determ(x, y);
system("pause");
return 0;
}
