64 символа = 6 битная кодировка
6*5=30 бит
Могу в предложить в данном случае использовать goto и метки. Ну, если вы имеете какой то признак неправильных данных, например, это отрицательные значения (предположим, что это неправильные данные) То на этапе, когда вы вводите эти значения, вы должны поставить условный оператор. Т.е.
if a<0 tnen
begin
Writeln('Вы ввели неверные данные');
goto 1
else
goto 2;
Метку 1 вы ставите в начало алгоритма, т.е. туда, откуда вы хотите начать повторное выполнение программы, а метку 2 поставить в продолжение алгоритма, т.е. на тот случай, если данные были введены верно
История автомобильного завода ЗиЛ.
Описание какой-нибудь области.
Первый полёт в космос.
<span><u>1</u>)function test:real; - <u>ВЕРНО</u>
<u>2</u>)function tan (angle:real):real; - <u>ВЕРНО</u>
3)function sign( a, b:integer); - НЕВЕРНО, не определен тип возвращаемого значения
4)function sign(write: integer): integer - НЕВЕРНО, в конце нет точки с запятой
Программа напечатает:
<u>12</u>
Объяснение:
</span>Процедура Exchange задумана, как обменивающая местами значения своих параметров. Но из-за отсутствия в заголовке var, она не вернет в вызвавшую программу новые значения, поэтому х и у останутся без изменения. Так они и будут выведены.