Введите цифрами сегодняшнюю дату (число, месяц, год) 31 12 1998
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Напишите программу в Паскале) написать программу которая вычисляет дату следующего дня. Введите цифрами сегодняшнюю дату (число, месяц, . » по предмету Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Новые вопросы по информатике
Сколько всего различных символов может быть в восьмибитной текстовой кодировке? 1) 8 2) 512 3) 256 4) 65536
Паскаль. Написать программу подсчета количества отрицательных чисел среди любых 10 вводимых. 1 программа с использованием while, 2 программа — repeat
Сколько кб информации содержит сообщение объемом 2^20 бит?
Информатика пользователь создад сообщение из 256 символов в кодировке Unicode в которой каждый символ кодируется 16 битами после редактирования информационный объем сообщения составил 3072 бит Определите сколько символов удалили сообщение если его
Программирование на языке Паскаль
Запишите числа в беззнаковом коде (формат 1 байт): а) 31; б) 163; в) 65; г) 128.
Главная » Информатика » Напишите программу в Паскале) написать программу которая вычисляет дату следующего дня. Введите цифрами сегодняшнюю дату (число, месяц, год) 31 12 1998
Источник: urokam.net
Написать программу которая вычисляет дату следующего дня паскаль
Вопрос по информатике:
Напишите программу в Паскале)
написать программу которая вычисляет дату следующего дня.
Введите цифрами сегодняшнюю дату(число,месяц,год) 31 12 1998
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок — бесплатно!
- bookmark_border
- 21.11.2017 07:36
- Информатика
- remove_red_eye 18055
- thumb_up 44
Ответы и объяснения 2
quchulangin304
Program z2;
var day, month, year:integer;
begin
writeln(‘Введите число, месяц, год’);
readln(day,month,year);
if(year mod 4=0) and (year mod 100 0) or (year mod 100=0) and (year mod 400 = 0) then //определение висок. года
begin
if(month=2) then
begin
if(day=29) then
begin
day:=1;
month:=3;
end
else
day:=day+1;
end
else if(month=1) or (month=3) or (month=5) or( month=7) or (month=8) or (month=10) then
begin
if(day=31) then
begin
month:=month+1;
day:=1;
end
else
day:=day+1;
end
else if(month=12)then
begin
if(day=31) then
begin
year:=year+1;
month:=1;
day:=1;
end
else
day:=day+1;
end
else
begin
if(day=30) then
begin
day:=1;
Учим Pascal за 1 час !
month:=month+1;
end
else
day:=day+1;
end;
end
else //проверка обычного года
begin
if(month=2) then
begin
if(day=28) then
begin
day:=1;
month:=3;
end
else
day:=day+1;
end
else if(month=1) or (month=3) or (month=5) or( month=7) or (month=8) or (month=10) then
begin
if(day=31) then
begin
month:=month+1;
day:=1;
end
else
day:=day+1;
end
else if(month=12)then
begin
if(day=31) then
begin
year:=year+1;
month:=1;
day:=1;
end
else
day:=day+1;
end
else
begin
if(day=30) then
begin
day:=1;
month:=month+1;
end
else
day:=day+1;
end;
end;
writeln(‘Следующий день: ‘,day, ‘ ‘,month, ‘ ‘,year);
end.
- 22.11.2017 10:33
- thumb_up 7
Источник: online-otvet.ru
Написать программу которая вычисляет дату следующего дня паскаль
Написать программу,которая вычисляет дату следующего дня.( Pascal)
Ниже рекомендуемый вид работы программы.(данные введенные пользователем,выделены жирным шрифтом)
Введите цифрами сегодняшнюю дату(число,месяц,год) 31 12 1998
Последний день месяца!
С наступающим новым годом!
Завтра 1.1.2000
Комментарии
В смысле завтрашнего дня?
Пояснение:Какое завтра число
Долго в общем прописывать 🙂
Ответ проверен экспертом
3 (7 оценок)
Alphaeus 9 лет назад
Светило науки — 1896 ответов — 28659 раз оказано помощи
Паскаль АВС.
Программа вывводит дату следующего дня. Чтоб не утяжелять программу, не стал писать проверку правильности введения даты — то есть пользователь должен вводить только правильные цифры 🙂
Program Upmixer;
var
day, month, year:integer;
begin
writeln(‘Введите дату:’);
write(‘День:’); read (day);
write(‘Месяц:’); read (month);
write(‘Год:’); read (year);
day:=day+1;
if (((year mod 4)=0) and ((year mod 100)<>0) and (month=2) and (day=30)) then
begin
day:=1;
month:=month+1;
end;
if (((year mod 4)<>0) and (month=2) and (day=29)) then
begin
day:=1;
month:=month+1;
end;
if ((day=31) and ((month=4) or(month=6) or (month=9) or (month=11))) then
begin
day:=1;
month:=month+1;
end;
if ((day=32) and ((month=1) or(month=3) or (month=5) or (month=7) or (month=8) or (month=10))) then
begin
day:=1;
month:=month+1;
end;
if ((day=32) and (month=12)) then
begin
day:=1;
month:=1;
year:=year+1;
end;
writeln(‘Завтра ‘, day,’ ‘,month,’ ‘,year);
end.
Источник: vashurok.com