Ответ:
program abc;
var m,o,k:int64;
begin
readLn(m);
o:=2000000000;
for i:integer:=trunc(sqrt(m))+1 downto 1 do
if (o>m div sqr(i)) and (m mod sqr(i) = 0) then
begin
o:=m div sqr(i);
k:=sqr(i);
end;
writeLn(k);
end.
Объяснение:
Var a,b,c:real;
begin
writeln ('Введите стороны треугольника');
read (a,b,c);
if ((a + b) > c) and ((a + c) > b) and ((b + c) > a) then writeln ('Существует')
else writeln ('Не существует');
end.
11010011.
Просто 211 нужно делить на 2, пока остаток не станет меньше 2х. Или проще скачать калькулятор для системы счисления
Ну там дома строения ну ты понял или поняла
Фомат gif
в начале идет табличка соответствия цветов под номерами
потом каждый пиксель помечается номером цвета.