1. Информатика
  2. Реализуйте решение , программируя

Реализуйте решение , программируя на паскале. по номеру месяца вывести на печать количество дней в нем . ( январь - 1 месяц, декабрь-12 месяц .)

akkusha1 akkusha1    1   02.06.2019 03:30    2

Ответы
sp14 sp14  02.07.2020 23:52
Const a:array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
var b:integer;
begin
readln(b);
writeln(a[b]);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
zheniskanovaa zheniskanovaa  15.02.2021 06:40
Цикл с предусловием. Урок 2 , все ответы на урок. билим ленд 1 - 42 - 113 - 34 - 135 - 46 - 77 - str(a) - преобразует число а в строкуint(a) - преобразует строку а в...
Catherina4002 Catherina4002  16.09.2019 05:50
Решить в паскале одна из основных операций с числами – их сравнение. мы подозреваем, что вы в совершенстве владеете этой операцией и можете сравнивать любые числа, в...
hiohio hiohio  16.09.2019 05:50
Боже, люди, , не шарю в информатике, завтра на языке питон вывести таблицу квадратов от 1 до...
123fafafartgd 123fafafartgd  18.05.2019 14:10
Петя и коля играют в следующую игру петя задумывает правило преобразования текстовой информации.коля может предлагать любые тексты и узнавать результаты преобразования...
Yabloco4 Yabloco4  18.05.2019 14:10
Составить программы для решения 1.найти катет прямоугольного треугольника, если известна гипотенуза и прилежащий к искомому катету угол. величину вводить в градусах....
yanashabanova1 yanashabanova1  18.05.2019 14:10
Определите полный набор исходных данных для решения следующих : приготовление обеда вычисление стоимости покупок в магазине приготовление салата по рецепту...
пятимейкер пятимейкер  18.05.2019 14:00
Составить программу распечатки на экране чисел от 80 до 10, кратных 11. на паскале, =)...
maя maя  13.05.2020 14:59
Визначте, чому буде дорівнювати значення зміної М після виконання операторів, якщо спочатку N=2, M=4 (мова Python) if N 0 if M // N N:M=M -Nelse: M=M+N​...
GanyaOle GanyaOle  18.10.2019 11:28
Выберите один или несколько вариантов из списка сеть, интернет, сеть интернет. сеть, интернет, сеть интернет. сеть, интернет, сеть интернет. сеть, интернет, сеть интернет....
kosta292006 kosta292006  18.10.2019 11:24
Скрейтч программасын қалай жүктейді...

Популярные вопросы