Program zz;
var a:integer;
begin
Writeln('Введите число:');
readln(a);
write('Число в обратном порядке:');
while(a<>0) do begin
write(a mod 10);
a:=a div 10;
end;
end.
Ответ:
2)37байт=296 бит
1 кб=1024 байт
1мб.
Объяснение:
1)В одной байте 8 битов.Следовательно:нужно 37×8.
Не совсем понял вопрос, но попробую ответить:
var y,a,b:integer;
Begin
readln(a,b);
y:=(a+b)*(a+b);
writeln('y = ',y);
readln;
end.
Вводить 2 числа через пробел.
<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadReal/3:0:3)
end.
<u>Примеры</u>
1
0.333
2
0.667
"Паскалей" различных много. Массивы тоже бывают разные. В вопросе ничего не детализировано, поэтому речь пойдет об одномерных массивах.
1. Турбо (Борланд) Паскаль. Массив - статический, в нем последний элемент не нужно определять, поскольку его индекс известен по описанию массива.
2. Borland Delphi, Free Pascal. Статические массивы - все как и в Турбо Паскаль. Но есть и динамические массивы, индексируемые от нуля, поэтому индекс последнего элемента в них равен количеству элементов минус единица. Можно пользоваться функцией Length(a), возвращающей текущее количество элементов в массиве.
3. PascalABC.NET 3.3. Действительно все, что написано выше. И добавочно можно написать a.Length вместо Length(a).