480 бит = 60 байт
нужно решить уравнение
x/2=x-60
x=2x-120
x = 120 символов
Объяснение:
C:\НОВОЕ\ПОКОЛЕНИЕ \ ВЫБИРАЕТ \ чтение.doc
Паскаль
Program Pro;
var a:integer;
begin
for a:=1 to 3 do
writeln(random(3));
end.
Program gt;
var a,b,c,d:real;
begin
read(a,b,c);
d:=a;
a:=b;
b:=c;
c:=d;
write(a,' ',b,' ',c);
end.