1.составьте программу вычисляющую сторону и площадь квадрата по его примеру. нужно! решить!

Var  p : integer;   a, s : real; begin   readln(p);   a: = p/4;   s: = sqr(a);   writeln('сторона квадрата равна ',a);   writeln('площадь квадрата равна ',s); end.

Odt - текстовый документ openoffice gif - графический формат txt - обычный текстовый формат jpeg - графический формат doc - текстовый документ microsoft office word pdf - формат adobe systems для обмена документами, в том числе и текстовыми. rtf - формат для обмена текстовыми документами, созданными совместно microsoft и adobe html - файл текстового формата, который является на самом деле программой на языке html. exe - исполняемый файл (программа в машинном коде) bmp - графический формат. вопрос задан не совсем корректно. если "текстовый файл" - это файл, который хранится в текстовом виде, может быть открыт и прочитан в любом текстовом редакторе или просмотрщике, например, в "блокноте", то подходят txt и html. если "текстовый файл" - это файл, который может содержать текстовый документ, то подходят odt, txt,  doc, pdf, rtf, html.

Программа на паскале: var   number, firstdigit, lastdigit,  maxdigit: longint;   begin   read(number);   lastdigit : = number mod 10;   write('нечетные цифры числа: ');   while number > 9 do   begin       if number mod 2 = 1 then write(number mod 10, ' ');       if number mod 10 > maxdigit then maxdigit : = number mod 10;       number : = number div 10;   end;   if number mod 2 = 1 then write(number);     if number mod 10 > maxdigit then maxdigit : = number mod 10;   firstdigit : = number;   writeln;   writeln('первая цифра числа - ', firstdigit);   writeln('последняя цифра числа - ', lastdigit);   writeln('наибольшая цифра числа - ', maxdigit); end.