Program Sample;
const
n = 4;
var
i, maxValue, inpValue: integer;
begin
maxValue := low(maxValue);
for i := 1 to n do
begin
Write('Введите число: ');
ReadLn(inpValue);
if maxValue < inpValue then
maxValue := inpValue;
end;
WriteLn('Максимальное из ', n, ' чисел равно ', maxValue);
end.
32768 = 1000 0000 0000 0000 в двоичной системе
в двоичной системе 0 также имеет свое значение, значит от 0 до 32767 у нас будет 32768 значений<span>
а </span>32767=<span>111 1111 1111 1111 (2) в двоичной системе
</span>
нужно 15 бит для кодирования 32768 значений<span>
</span>
Операционная система для 7-го
Var
a, b, c: real;
begin
writeln('Введите числа a, b, c');
readln(a, b, c);
if (sqr(a) = sqr(b) + sqr(c)) or (sqr(b) = sqr(a) + sqr(c)) or (sqr(c) = sqr(a) + sqr(b)) then
writeln('Данные числа являются пифагоровым тройками')
else
writeln('Данные числа не являются пифагоровым тройками');
end.
Выводит YES если есть, и NO если нету
На языке С++:
#include <bits/stdc++.h>
using namespace std;
string s;
int main ()
{
cin >> s;
for (int i = 0; i < s.size(); ++ i)
{
for (int j = i; j < s.size(); ++ j)
{
int a = s[i] - '0';
int b = s[j] - '0';
if (a == b)
{
cout << "YES";
return 0;
}
}
}
cout << "NO";
}