#include <iostream>
using namespace std;
int main(){
float x, y;
cin >> x >> y;
if (((x * x + y * y) <= 2 * 2) and (y >= 0 )) {
cout << "Yes";
} else {
cout << "No";
}
return 0;
}
Var a,b,c,d:real;
begin
writeln('Введите коэффициенты уравнения через пробел');
read(a,b,c);
d:=sqr(b)-4*a*c;
writeln('Дискриминант = ',d:6:2);
readln;
end.
Алгоритм можете составить сами исходя из программы. (Всего лишь замена служебных слов)
810 = 10002,
910 = 10012,
1010 = 10102,
1110 = 10112.
Из чисел 9 и 10 выбираем число 10, поскольку оно является наибольшим.
На PascalABC.NET
begin
var (a,b):=(random(10)+1,random(10)+1);
var k: integer;
if a>b then k:=a*b
else k:=a+b;
writeln(a,b,k);
end.
В Операционной системе Windows:
1 значок это "Помощь"
2 значок это "Занят"
3 значок это "Выделение текста"
4 значок это "Недоступно"
5 значок это "Изменение вертикальных размеров"
6 значок это "Изменение горизонтальных размеров"
7 и 8 значок это "Изменение размеров по диагонали 1" "Изменение размеров по диагонали 2"
9 значок это "Переместить"