Uses crt;
var k,n:integer;
begin
clrscr;
writeln ('введи день года от 1 до 365');
readln (k);
if (k>=1) and (k<=365) then
begin
n:=k mod 7;
case n of
1: writeln ('понедельник');
2: writeln ('вторник');
3: writeln ('среда');
4: writeln ('четверг);
5: writeln ('пятница');
6: writeln ('суббота');
0: writeln ('воскресенье');
end;
end
else writeln ('Неверный ввод');
readln;
end.
uses crt;
var k,n,d:integer;
begin
clrscr;
writeln ('Введи с какого дня недели 1 января (1-пон, 2-вт и тд до 7)');
Readln (d);
writeln ('введи день года от 1 до 365');
readln (k);
if (k>=1) and (k<=365) and (d>=1) and (d<8) then
begin
n:=k mod 7 +d-1;
case n of
1: writeln ('понедельник');
2: writeln ('вторник');
3: writeln ('среда');
4: writeln ('четверг');
5: writeln ('пятница');
6: writeln ('суббота');
0,7: writeln ('воскресенье');
end;
end
else writeln ('Неверный ввод');
readln;
end.
N=2^i
N=32
i-?
2^i=32
i=5
Ответ 5 бит.
О, я как раз около полугода назад для такого (но для себя уж, не для учёбы, просто интерес) программу на Visual Bisic .NET написал:) Счастья тебе, спасибо, что про неё напомнила х)
01010111011011110111001001101100011001000010000001010111011010010110010001100101001000000101011101100101<span>01100010</span>
Сидел, искал информацию в интернете по поводу неприкладных программ и по сути ничего толкового не нашел. Но судя по тому, что прикладные программы - это почти все программы которыми мы пользуемся (всевозможные редакторы, мультимедиа приложения, разные системы и т.п) и ставятся на компьютер они после, отдельно.
Могу сделать вывод, что неприкладными программами можно считать системный софт <span>(типа микропрограмм, или firmware), и по сути они являются частью оборудования.</span>
В 1832г - <em>изобрели электрический телеграф</em>
В 1837г - <em>создан электромагнитный телеграфный аппарат</em>
В 1876г - <em>изобретен телефон</em>
В 1895г - <em>создали радио</em>
20 век - <em>телевидение, спутниковая связь</em>