Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

напишите пожалуйста программу с case

10-11 класс

Kristina6515592 08 нояб. 2014 г., 18:01:23 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Olvgakovaliwa
08 нояб. 2014 г., 18:53:11 (9 лет назад)

паскаль)
begin
writeln('Введите номер месяца');
readln(mes);
writeln('Введите год');
readln(god);
case mes of
1:write('январь');
2:write('февраль');
3:.....
........
12:write('декабрь');
end;
write(' ',god mod 100);
writeln;
end.

+ 0 -
Dimamazur
08 нояб. 2014 г., 21:15:04 (9 лет назад)

          var

+ 0 -
VAVAN316
08 нояб. 2014 г., 23:17:43 (9 лет назад)

какую программу?

+ 0 -
Zero69pro
09 нояб. 2014 г., 0:49:37 (9 лет назад)

любую для turbo pascal

Ответить

Другие вопросы из категории

Составьте программу, определяющую, лежит ли точка с указанными координатами X, Y на окружности радиуса R с центром в начале координат.

Program Frankenstein;
var
x,y,r:integer;
Begin
Write('Введите координату X: ');
Readln(x);
Write('Введите координату Y: ');
Readln(y);
Write('Введите длину радиуса R: ');
Readln(r);
If (sqr(x)+sqr(y))=r
then writeln('Точка лежит на окружности!')
Else writeln('Точка не лежит на окружности!');
End.

Почему программа всегда показывает что точка не лежит на окружности, хотя на самом деле она лежит! Где я ошибся?

Помогите, пожалуйста.

В паскале.

найти все двузначные числа, сумма кубов цифр которых делится на 17. (использовать вложенные циклы)

Петя записал IP-адрес школьного сервера на листке бумаги и положил его в карман куртки. Петина мама случайно постирала куртку вместе с запиской. После

стирки Петя обнаружил в кармане 4 обрывка с фрагментами IP-адреса. Эти фрагменты обозначены буквами А 0.144 ;Б 146. ; В 15; Г .100 в ответе укажите последовательность букв, обозначающих фрагменты, в порядке, соответствующем IP-адресу

Читайте также

1) Напишите пожалуйста программу (на языке BASIC) вычисления по длинам двух сторон треугольника и углу между ними длины третьей стороны и двух других

углов.
2)
Напишите пожалуйста программу (на языке BASIC) для определения подобия:
а) двух прямоугольников по двум смежным сторонам;
б) двух треугольников по трем сторонам.

Даны 2 двузначных целых числа X и y.Найти D=MAX{x+y;y-x}+3,E=MIN{x^2+y^2;y^2+x*y}-4.если D<E,то к переменной D прибавить первую цифру числа

E,иначе из числа взять корень степени, равной второй цифре числа

если есть умеющте напишите,пожалуйста,программу в Паскале

Ребята, напишите, пожалуйста, программу.

Заранее спасибо.



Вы находитесь на странице вопроса "напишите пожалуйста программу с case", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.