Var a,b,c:real;
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
if (a*a+b*b=c*c)or(a*a+c*c=b*b)or(b*b+c*c=a*a)
then writeln('Треугольник прямоугольный')
else writeln('Треугольник не прямоугольный (а может быть и не треугольник)');
end.
Пример:
a = 4
b = 3
c = 5
Треугольник прямоугольный
{ЗадачаСоздайте целочисленный массив из 20 элементов с помощью генератора случайных чисел с элементами от 0 до 15 и выведите его на экран. Подсчитайте и выведите на экран количество не четных элементов}constb = 20;vara : array [1..b] of integer;i: integer;
beginrandomize; //подключаем генератор случайных чисел
for i:=1 to b do a[i]:=random(15); //генерируем массив из случайных чисел writeln('вывод массива') ;for i:=1 to b do write(a[i],' '); //выводим массивwriteln;
writeln('вывод нечетных чисел из массива'); for i:=1 to b do if (a[i] mod 2 =1) then write(a[i], ' ')//выводим нечетные числ из массиваend.
Какой класс скажи пожалуйста
Ответ:
11110001
Объяснение:
Ближайшая степень двойки к исх.числу - 128(2^7). Чисел в двоичном представлении значит будет 8(седьмая степень двойки плюс нулевая), на 8 позиции будет 1. Вычитаем из 241 128, получаем 113. Поступаем аналогично, ближайшая степень - 64(2^6), на 7 позиции будет 1. 113-64=49. Ближайшая степень 32(2^5). на 6 позиции 1. 49-32=17. ближайшая степень 16(2^4). на 5 позиции 1. 17-16=1. ближайшая степень 1(2^0). на 1 позиции единица. Теперь выставляем единицы на нужные позиции и получаем
11110001
Program znanijatop;
const
left = 1;
right = 3;
i = 3;
var
k:byte;
x:array [1..I] of real;
begin
k:=0;
while k<i do begin
k:=k+1;
readln(x[k]);
end;
k:=0;
while k<i do begin
k:=k+1;
if (x[k] > left) and (x[k] < right) then writeln((x[k]));
end;
end.