Создать програму у delphi для вычисления площади ромба s=​

Объяснение:

нужна удобная программа для просмотра фото?в современном мире люди часто используют различные приложения,соц сети для съемок и просмотра изображений.так вот несколько примеров программ

1.IrfanView(минималистичное приложение, которое делает основную ставку на быстродействие. Оно занимает на компьютере всего 1 мегабайт и работает с различными расширениями).

2.XnView ( средство просмотра фотографий с удобными инструментами для управления изображениями и конвертации в выбранный формат. Помимо графических файлов, софт дополнительно умеет открывать AVI, MP3 и некоторые другие расширения. XnView снабжен опцией Drag and Drop, облегчающей управление файлами, а также удобной сортировкой по дате создания, весу, имени и другим критериям)

3. фотогалерея (русскоязычный софт от отечественного разработчика AMS Software. Он подходит для просмотра файлов любых графических форматов (JPG, PNG, BMP, GIF, RAW, CR2) и отличается высокой скоростью работы. Вы сможете смотреть даже крупные фотографии без зависаний. Быстродействие особенно ощущается в сравнении со встроенным просмотрщиком для Windows 7, 10 и др. ФотоГалерея – заслуженно лучшая программа для просмотра фотографий, так как помимо основной опции вьюера, с которой прекрасно справляется, позволяет выполнять редактирование).

исходя из этих примеров можем подвести итоги сообщения,ведь задача которую мы ставили выполнена!

// pascalabc.net 3.1, сборка 1214 от 09.04.2016 function automorph(n: integer): boolean; begin   var s1: =n.tostring;   result: =(s1=(n*n).tostring.right(s1.length)) end; begin   var a,b: integer;   write('введите а и b: '); read(a,b);   for var i: =a to b do       if automorph(i) then print(i) end. тестовое решение: введите а и b: 1 10000 1 5 6 25 76 376 625 9376 попробовал переписать функцию в более примитивный вид. по-моему, она не стала проще, только function automorph(n: integer): boolean; begin   var s1: =inttostr(n); // n переводим в строковое представление   var s2: =inttostr(n*n); // n*n переводим в строковое представление   var l1: =length(s1); // длина строки s1   s2: =rightstr(s2,l1); // правые l1 символов из s2   result: =(s1=s2) end;