Код в приложении
Компилятор - Pascal ABC.NET
Вы можете уменьшить размер файлов и сэкономить пространство на диске с помощью сжатия рисунков в документе. Параметры сжатия уменьшают как размер файл, так и размеры рисунков, в зависимости от того, как планируется использовать изображение, например для просмотра на экране или в сообщении электронной почты. Сжать можно все рисунки в файле или только специально выделенные.
Если документ сохранен в более старом формате DOC, то параметр "Уменьшить размер файла" не будет доступен в меню "Файл". Чтобы использовать параметр "Уменьшить размер файла", сохраните документ в новом формате DOCX.
Var a,b,c:real;
begin
write('Катет и гипотенуза:');
readln(a,c);
b:=sqrt(abs(c*c-a*a));
writeln('b = ',b);
end.
Пример:
Катет и гипотенуза:3 5
b = 4
Радио, компьютер,телефон...
Программа... Вообщем непонятно что делает. Убирает последние три цифры у числа, затем Эти самые три цифры умножает на переменную "b", и так повторяется, пока это число не станет меньше 1000.
Вообщем... Ответ: 1011. Не парься