Program trangle;
var a,b,c: real;
begin
readln(a,b,c);
if ((a+b) > c) and ((a+c) > b) and ((c+b)>a) then writeln('trangle is exist')
else
writeln ('tranle doesnt exist');
readln;
end.
1)130*16/8=260байт/1024=<span><span>0,253906Кб
Ксюша 32*(180/20)=288бит за мин*20/8=720байт
Вика 32*(182/18)=</span></span><span><span>323,5555556 бит за мин*18/8=728байт</span></span>
Ну переводишь всё в 10-ю (сумма произведений разрядов на с.с. в степени позиции разряда):
(3 * x^0) + (3 * x^1 + 1 * x^0) = (1 * x^2 + 1 * x^1) <=>
3 + 3x + 1 = x^2 + x <=>
x^2 - 2x - 4 = 0
D = 4 - 4 * 1 * (-4) = 20
=> x - не целый => решения нет
Задача №1
var i, sum, x: integer;
begin
sum := 0; //начальная сумма
for i := 1 to 10 do //счётчик до 10
begin
write('Введите число ', i ,': ');
readln(x);
sum:= sum + sqr(x); //к сумме прибавляем квадрат введенного числа
end;
writeln('Сумма квадратов чисел = ',sum);
end.
Задача №2.
var i, sum: integer;
begin
sum := 0; //начальная сумма
for i := 26 to 88 do //счётчик от 26 до 88
begin
if i mod 2 = 0 then //проверка на чётность, если остаток от деления равен 0, то число чётное
sum:= sum + i; //к сумме прибавляем число
end;
write(sum);
end.
A | B | A&B | A&BvA
0 | 0 | 0 | 0
0 | 1 | 0 | 0
1 | 0 | 0 | 1
1 | 1 | 1 | 1
а электронную в экселе) заполнишь столбики "А" , "В", а "А и В" и "А и В или А" заполни спомощью формул) зайдешь во вкладку "формулы", выберешь Логические, дальше поймешь