Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program qwerty; uses crt; var a: real; beginclrscr; writeln('введите количество миль'); readln(a); a: = a*1.6; writeln('кол-во киллометров - ',a: 2: 2); readkey; end.
программа на паскале:
program xxx;
var a, b: real;
begin
writeln('введите количество миль');
readln(a);
b: = a*1.6;
writeln('кол-во киллометров - ',b)
end.
var n,z: longint;
read(n);
z: =abs(n);
z: =z-2;
writeln(z);
в одном байте восемь бит. следовательно 100/8=12.5 ответ 12.5
Популярные вопросы