сервис вопросов и ответовНаписать программу в Паскаль:
5-9 класс|
|
1)Составьте программу, которая по заданному году и номеру месяца определит кол-во дней в этом месяце.
2)Для любого 2-ух значного числа, вывести его значение в словесной форме.
Yakimovaaa
28 марта 2017 г., 17:17:18 (7 лет назад)
Denisekas
28 марта 2017 г., 17:54:37 (7 лет назад)
1)
var y,m,d:integer;
begin
read(y,m);
case m of
1,3,5,7,8,10,12: d:=31;
4,6,9,11: d:=30;
2:if(y mod 4<>0) then d:=28 else
if(y mod 100<>0) then d:=29 else
if(y mod 400<>0) then d:=28 else
d:=29;
end;
writeln(d);
end.
Ответить
Другие вопросы из категории
Вова нарисовал в графическом редакторе Paint несколько овалов. Некоторые из них получились незамкнутыми.Визуально холст он разбил на квадраты,каждый из
которых имеет свое имя.Затем Вова взял инструмент "Заливка" и кликнул по квадрату D2 .Какое количество квадратов после заливки будет закрашено целиком
А)16
Б)17
В)18
Г)19
Закончите предложение: а Под признаками объекта мы будеим подазривать его... б Свойства объекта... в Действие объекта... г
Поведение объекта...
д Состояние объекта...
Читайте также
1)найти сумму первых k последовательных нечетных чисел. написать программу в паскале. 2)вывести на экран натуральные нечетные числа от 5 до 55.тоже
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
Помогите написать программу для Паскаля.
1. Написать программу нахождения произведения n чисел.
Паскаль ABC 1.Написать программу рисующую вертикальную цепочку из 7 кругов 2.Написать программу рисующую цепочку из 5 кругов
расположденных по диагонали
3.Написать программу рисующую горизонтальную цепочку из 12 кругов,каждый круг должен на половину закрывать предыдущий
Помогите,а то сижу с паскалем уже час с лишним и все никак не получается..
Заранее спасибо)
Паскаль абс 2 задачи 1)Написать программу выводящую на экран последовательность чисел от 1 до 10 через пробел в строчку.
2)Написать программу которая бы выводила на экран произведение нечетных чисел от 10 до 20.
Помогите написать программу на Паскале.
Напишите программу, которая в последовательности целых чисел
вычисляет сумму всех чисел, которые кратны 6 или 11. Программа получает на вход
целые числа, количество введённых чисел неизвестно, последовательность чисел
заканчивается числом 0 (0 – признак окончания ввода, не входит
в последовательность).
Количество чисел не превышает 1000. Введённые числа по
модулю не превышают 30 000.
Программа должна вывести одно число: сумму всех чисел,
которые кратны 6 или 11.
Вы находитесь на странице вопроса "Написать программу в Паскаль:", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.