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.
Ip адрес нужен для идентификации в сети, для адресации данных или связаться с другими компьютерами. Примерно так.
<span>Бе́лый гриб, или боровик — гриб из рода Боровик.Белый гриб широко распространён на всех материках, кроме Австралии.Сезон: в северном умеренном климате — с середины июня по конец сентября, наиболее массовый сбор — во второй половине августа. Часто кратковременно появляется в конце мая, в более тёплых регионах плодоносит и в октябре.Съедобный гриб, в странах Восточной Европы считается одним из лучших грибов по вкусовым качествам, в народе его часто причисляют к так называемым «благородным грибам» и именуют «царём грибов»<u /></span>
Самая минимальная единица измерения это бит.
1 байт=8 бит