решил все задачки,на этих последних завис(забыл за лето перевод в двоичную систему). Кому не трудно ,хотя бы одну решите. ну понятно,что нужно написать прогу(на паскале): типо такого: program prog1; var a,v,d,s:integer; begin ....
Сообщение отредактировал YoUCaN - Четверг, 20.09.2012, 22:40
хмм 2 курс а ниче незнать чо ты написать:33 Отслужил =) Черноморский флот г.Севастополь За год на 4 кораблях прослужил БДК "Азов" "Орск" "Ямал" "Николай Фильчинков"
Сообщение отредактировал Distrurbed - Четверг, 20.09.2012, 20:54
program DecToBin; uses crt; var c:array [1..255] of integer; a,i,n:integer; begin clrscr; i:=0; Repeat writeln('Please enter A, A must range between 0 and 63'); readln(a); Until (a>=0) and (a<=63); if (a=0) then write (' 0 0 0 0'); while a>=1 do begin i:=i+1; c[i]:=a mod 2; a:=a div 2; end; n:=i; for i:=n downto 1 do write(c[i]:2); end.
Если не будет особо в лом сделаю и остальные.
Сообщение отредактировал r00t-bag - Четверг, 20.09.2012, 23:00
uses crt; var c:array [1..255] of integer; a,i,n:integer; begin i:=0; clrscr; Repeat writeln('Please enter A, A must range between 0 and 242'); readln(a); Until (a>=0) AND (a<=242);
if (a=0) then write (' 0 0 0 0'); while a>=3 do begin i:=i+1; c[i]:=a mod 3; a:=a div 3; end; n:=i; write(a:2); for i:=n downto 1 do write(c[i]:2); end.
Забыл, что число нужно от 0 до 242. Исправил. Предыдущую сейчас исправлю.
хмм 2 курс а ниче незнать чо ты написать:33 
Мы такие не делаем.
