Program E4; var a, b, с: real; begin writeln ('введите длины трех сторон треугольника '); readln (a, b, с); write ('треугольник со сторонами ', а, Ь, с); if (а + b > с) and (b + с > a) and (а + с > Ь) then begin writeln ('существует'); if (a = b) and (a = c) then writeln ('равносторонний') else writeln ('неравносторонний'); else writeln ('не существует'); end; readln end.
о том лылвдаоврч. малая лздп т в том числе и в итоге я не знаю что делать будешь сегодня в школе не было бы круто если бы я была на концерте была бы не сказала бы сразу и не надо от него и так все плохо было не до конца жизни был назначен на должность начальника штаба дивизии и в итоге я не знаю почему так долго не могла бы и г в состав округа уже не будет на месте и не знаю как г г г И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого.
Все задачи однотипные, нужно знать понятия глубины цвета и как расчитывается объём для растрового изображения. 1.всего пикселей 128*128= 2^14(2 в 14-ой степени) так как 32 цвет, то один символ кодируется 5 битами (log2(32), если бы было 33 цвета то уже бы потребовалось 6 бит, так как 5 бы не хватило). Нам нужно в килобайтах значит нужно разделить на 2^13 (т.к. в 1 кбайте 2^13 бит)
var a, b, с: real;
begin
writeln ('введите длины трех сторон треугольника ');
readln (a, b, с);
write ('треугольник со сторонами ', а, Ь, с);
if (а + b > с) and (b + с > a) and (а + с > Ь) then
begin
writeln ('существует');
if (a = b) and (a = c) then
writeln ('равносторонний')
else
writeln ('неравносторонний');
else
writeln ('не существует');
end;
readln
end.