Високосные года уже не учитывал (найдёте ошибку - не поленитесь написать в комменты)
var a,b,c:integer; begin writeln ('Введите сегодняшний день, месяц, год (например, 1 12 2013)'); read(a,b,c); if (((b=1) or (b=3)or (b=5) or (b=7) or (b=8) or (b=10) or (b=12)) and ((a>=1) and (a<=31))) or ((b=2) and ((a>=1) and (a<=28)) or (((b=4) or (b=6)or (b=9) or (b=11))) and ((a>=1) and (a<=30))) then begin writeln ('Сегодня ',a,'.',b,'.',c); if (((b=1) or (b=3)or (b=5) or (b=7) or (b=8) or (b=10) or (b=12)) and ((a>=1) and (a<=31))) and ((a=31) and (b=12)) then writeln ('Завтра 1.1.',c+1) else if (((b=1) or (b=3)or (b=5) or (b=7) or (b=8) or (b=10) or (b=12)) and ((a>=1) and (a<=31))) and ((a=31) and (b<>12)) then writeln ('Завтра 1.',b+1,'.',c) else if (((b=1) or (b=3)or (b=5) or (b=7) or (b=8) or (b=10) or (b=12)) and ((a>=1) and (a<=31))) and ((a<>31) and (b=12)) then writeln ('Завтра ',a+1,'.',b,'.',c) else if ((b=2) and ((a>=1) and (a<=28))) and ((a=28) and (b=12)) then writeln ('Завтра 1.1.',c+1) else if ((b=2) and ((a>=1) and (a<=28))) and ((a=28) and (b<>12)) then writeln ('Завтра 1.',b+1,'.',c) else if ((b=2) and ((a>=1) and (a<=28))) and ((a<>28) and (b=12)) then writeln ('Завтра ',a+1,'.',b,'.',c) else if (((b=4) or (b=6) or (b=9) or (b=11))) and ((a>=1) and (a<=30)) and ((a=30) and (b=12)) then writeln ('Завтра 1.1.',c+1) else if (((b=4) or (b=6) or (b=9) or (b=11))) and ((a>=1) and (a<=30)) and ((a=30) and (b<>12)) then writeln ('Завтра 1.',b+1,'.',c) else if (((b=4) or (b=6) or (b=9) or (b=11))) and ((a>=1) and (a<=30)) and ((a<>30) and (b=12)) then writeln ('Завтра ',a+1,'.',b,'.',c) else writeln ('Завтра ',a+1,'.',b,'.',c); end else writeln ('Неправильная дата'); end.
Pascal ABC Из слова "вертикаль" путем вырезок и склеек его букв получить слова "тир" и "ветка" Ввести один из символов "Y" или "n". При вводе "Y" вывести на экран слово "Да", а при вводе "n" слово "нет" Pascal ABC Даны строки а="вариант",b= "Высоко", с = "макароны". Получить слово "соковарка" Pascal ABC Pascal ABC Вывести текст файла, заменив цифры от 0 до 9 на слова "ноль", "один"..."девять", начиная каждое предложение с новой строки Из слова "яблока" путем вырезок и склеек получить слово "блок" и "ока" Pascal ABC Pascal ABC Составить программу, которая бы выводила на экран заданное число и подпись в зависимости от числа "год", "года" или "лет" составьте программу, которая из слова "ПРОГРАММА" составляет слова: "ГРАММ","РОГА","ГОРА" Из слова "апельсин" путем вырезок и склеек его букв получить слово "спаниель" Pascal ABC
1. Определим, как изменится размер файла. Пусть по первому варианту размер равнялся Y байт. При повторной оцифровке разрешение было в два раза меньше и по этой причине размер файла составит Y/2 байт. Кроме этого, была уменьшена в 1.5 = 3/2 раза частота дискретизации, что уменьшит размер файла до Y/2 : 3/2 = Y/3 байт, т.е. файл стал втрое меньше размером.
2. Определим время, за которое такой файл мог бы передаваться из города А. Поскольку файл уменьшился втрое, во столько же раз уменьшится время, необходимое на его передачи и оно составит 90/3=30с
3. ответим на вопрос задачи. Канал связи с Б обладает пропускной втрое ниже, поэтому файл будет передаваться втрое дольше, т.е. 30×3=90с
ответ: время передачи не изменится и составит 90с
Можно было, конечно, решить эту задачу в уме. Файл уменьшился в два, да еще в полтора, итого в 2×1.5=3 раза. А пропускная канала ниже тоже втрое. Получается, что время передачи файла не изменится.
var a,b,c:integer;
begin
writeln ('Введите сегодняшний день, месяц, год (например, 1 12 2013)');
read(a,b,c);
if (((b=1) or (b=3)or (b=5) or (b=7) or (b=8) or (b=10) or (b=12)) and ((a>=1) and (a<=31))) or ((b=2) and ((a>=1) and (a<=28)) or (((b=4) or (b=6)or (b=9) or (b=11))) and ((a>=1) and (a<=30))) then
begin
writeln ('Сегодня ',a,'.',b,'.',c);
if (((b=1) or (b=3)or (b=5) or (b=7) or (b=8) or (b=10) or (b=12)) and ((a>=1) and (a<=31))) and ((a=31) and (b=12)) then writeln ('Завтра 1.1.',c+1) else
if (((b=1) or (b=3)or (b=5) or (b=7) or (b=8) or (b=10) or (b=12)) and ((a>=1) and (a<=31))) and ((a=31) and (b<>12)) then writeln ('Завтра 1.',b+1,'.',c) else
if (((b=1) or (b=3)or (b=5) or (b=7) or (b=8) or (b=10) or (b=12)) and ((a>=1) and (a<=31))) and ((a<>31) and (b=12)) then writeln ('Завтра ',a+1,'.',b,'.',c) else
if ((b=2) and ((a>=1) and (a<=28))) and ((a=28) and (b=12)) then writeln ('Завтра 1.1.',c+1) else
if ((b=2) and ((a>=1) and (a<=28))) and ((a=28) and (b<>12)) then writeln ('Завтра 1.',b+1,'.',c) else
if ((b=2) and ((a>=1) and (a<=28))) and ((a<>28) and (b=12)) then writeln ('Завтра ',a+1,'.',b,'.',c) else
if (((b=4) or (b=6) or (b=9) or (b=11))) and ((a>=1) and (a<=30)) and ((a=30) and (b=12)) then writeln ('Завтра 1.1.',c+1) else
if (((b=4) or (b=6) or (b=9) or (b=11))) and ((a>=1) and (a<=30)) and ((a=30) and (b<>12)) then writeln ('Завтра 1.',b+1,'.',c) else
if (((b=4) or (b=6) or (b=9) or (b=11))) and ((a>=1) and (a<=30)) and ((a<>30) and (b=12)) then writeln ('Завтра ',a+1,'.',b,'.',c) else
writeln ('Завтра ',a+1,'.',b,'.',c);
end else
writeln ('Неправильная дата');
end.