Очень срочно ! Помогите сделать задание под Б !
10-11 класс
|
людатр
30 янв. 2015 г., 21:50:31 (9 лет назад)
Manayshka
30 янв. 2015 г., 23:42:49 (9 лет назад)
program gt;
var a:array[1..5]of integer;
b:array[1..100]of integer;
i,t,j:integer;
begin
a[1]:=32; a[2]:=64; a[3]:=128; a[4]:=20; a[5]:=30;
for i:=1 to 5 do
begin
writeln(a[i],'*');
t:=0;
while a[i]>0 do
begin
t:=t+1;
b[t]:=a[i] mod 2;
a[i]:=a[i] div 2;
end;
for j:=t downto 1 do
write(b[j]);
writeln;
end;
end.
Ответить
Другие вопросы из категории
Найти остаток от деления целой части значения функции z=In(x^2+ab) на 7 и, в зависимости от его величины , напечатать сообщение об одном из дней недели,
пронумеровав их от 0 до 6. Решить в Паскаль
определите правила по которому составлена последовательность и продолжите её.
1) а,в,е,и,н .....
2)1,2,4,8,16,32 .....
Читайте также
очень срочно.....помогите пожалуйста паскаль
Определить,можно ли сделать круглую заготовку с заданным радиусом R из квадратного листа фанеры с заданной стороной А. решить ее надо с помощью оператора выбора case
Вы находитесь на странице вопроса "Очень срочно ! Помогите сделать задание под Б !", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.