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.
1. Не указано, сколько бит приходится на один символ. Предположим, что 1 символ занимает 8 бит или один байт. v = 1200 бит/с информационная ёмкость сообщения i = 3070*8 = 24560 бит Время передачи t = i/v = 24560/1200 = 20,47 секунд 2. За 1 секунду передаётся 1200 бит или 150 символов, значит, на один символ приходится 1200/150 = 8 бит При работе модема со скоростью 2400 бит/с за 1 секунду будет передано 2400/8 = 300 символов 3. Снова не указана битность символов. Ну, опять 8 бит на символ. 9600/8 = 1200 символов/с
my_file=open("BabyFile.txt","w+")
my_file.write("Привет,файл!")
my_file.close()