сервис вопросов и ответовПо заданному числу n от 1 до 365 определите, на какое число какого месяца приходится день невисокосного года с номером n. Программа получает на вход
10-11 класс|
|
целое число n и должна вывести два числа: число месяца (от 1 до 31) и номер месяца (от 1 до 12), на которое приходится данный день.
Lifeislovedasha98
09 февр. 2014 г., 19:19:19 (10 лет назад)
настя2389
09 февр. 2014 г., 20:07:49 (10 лет назад)
program gt;
label 1;
var n,i,s:integer;
begin
readln(n);
s:=0;
for i:=1 to 12 do
begin
if(i=1)or(I=3)or(i=5)or(i=7)or(i=8)or(i=10)or(i=12)then begin
s:=s+31;
if(n<=s)then begin
writeln(n-s+31,' ',i);
goto 1;
end;
end;
if(i=2)then begin
s:=s+28;
if(n<=s)then begin
writeln(n-s+28,' ',i);
goto 1;
end;
end;
if(i=4)or(i=6)or(i=9)or(i=11)then begin
s:=s+30;
if(n<=s)then begin
writeln(n-s+31,' ',i);
goto 1;
end;
end;
end;
1:
end.
Ответить
Другие вопросы из категории
Сети с выделенным сервером достаточно дешевы и просты в обслуживании, однако не могут обеспечить должной защиты информации при большом размере сети
1) Неверно
2) Верно
Помогите, пожалуйста написать программу на паскаль
Дано натуральное число. Вычислить количество цифр, являющихся степенями тройки (1,3,9).
Читайте также
ПАСКАЛЬ.1)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 1000.опишите на русском языке или на одном из
языков программирования алгоритм,позволяющий найти среднее арифметическое нечетных трехзначных чисел,записанных в этом массиве.если ни одного такого числа нет,нужно вывести сообщение об этом.
2)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 100.опишите на русском языке или на одном из языков программирования алгоритм,позволяющий найти и вывести произведение элементов массива,которые имеют четное значение и не оканчиваются на 0.
Дана строка , в которой содержится осмысленное текстовое сообщение. Слова сообщения разделяются В заданном формате дд- целое число из диапазона от 1 до
31, мм - целое число из диапазона от 1 до 12, а гг - целое число из диапазона от 1 до 2020 (если какая-то часть формата нарушена, то данная подстрока в качестве даты не рассматривается.) Заменить каждую дату сообщения на дату следующего дня. Написать программу на Паскале. Сроооооооооооооочнооо. Пооожалуйста.....
определить число элементов массива, больших К. По заданному условию сформировать одномерный массив, вывести на печать и произвести операции по обрабо
тке полученных компонентов массива. Исходными данными являются одномерный массив, элементы которого задаются с помощью датчика случайных чисел от -50 до +50 и целое положительное число К
1)составьте программу вычисления суммы чисел в диапазоне от 45 до 115 45+....+115
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE
№1 Вывести на экран квадраты чисел от 1 до n. №2 Вывести на экран таблицу умножения от 1 до 10
числа n.
№3
Вычислить значение факториала n!
№4
В диапазоне от 1 до n вывести все четные числа на экран.
№5
Найти количество чисел, которые делятся на 3 и 5, из диапазона от 1 до n.
Вы находитесь на странице вопроса "По заданному числу n от 1 до 365 определите, на какое число какого месяца приходится день невисокосного года с номером n. Программа получает на вход", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.