По заданному числу n от 1 до 365 определите, на какое число какого месяца приходится день невисокосного года с номером n. Программа получает на вход
10-11 класс
|
целое число n и должна вывести два числа: число месяца (от 1 до 31) и номер месяца (от 1 до 12), на которое приходится данный день.
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).
Читайте также
языков программирования алгоритм,позволяющий найти среднее арифметическое нечетных трехзначных чисел,записанных в этом массиве.если ни одного такого числа нет,нужно вывести сообщение об этом.
2)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 100.опишите на русском языке или на одном из языков программирования алгоритм,позволяющий найти и вывести произведение элементов массива,которые имеют четное значение и не оканчиваются на 0.
31, мм - целое число из диапазона от 1 до 12, а гг - целое число из диапазона от 1 до 2020 (если какая-то часть формата нарушена, то данная подстрока в качестве даты не рассматривается.) Заменить каждую дату сообщения на дату следующего дня. Написать программу на Паскале. Сроооооооооооооочнооо. Пооожалуйста.....
тке полученных компонентов массива. Исходными данными являются одномерный массив, элементы которого задаются с помощью датчика случайных чисел от -50 до +50 и целое положительное число К
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE
числа n.
№3
Вычислить значение факториала n!
№4
В диапазоне от 1 до n вывести все четные числа на экран.
№5
Найти количество чисел, которые делятся на 3 и 5, из диапазона от 1 до n.