напишите пожалуйста программу с case
10-11 класс
|
паскаль)
begin
writeln('Введите номер месяца');
readln(mes);
writeln('Введите год');
readln(god);
case mes of
1:write('январь');
2:write('февраль');
3:.....
........
12:write('декабрь');
end;
write(' ',god mod 100);
writeln;
end.
любую для turbo pascal
Другие вопросы из категории
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. (использовать вложенные циклы)
стирки Петя обнаружил в кармане 4 обрывка с фрагментами IP-адреса. Эти фрагменты обозначены буквами А 0.144 ;Б 146. ; В 15; Г .100 в ответе укажите последовательность букв, обозначающих фрагменты, в порядке, соответствующем IP-адресу
Читайте также
углов.
2)
Напишите пожалуйста программу (на языке BASIC) для определения подобия:
а) двух прямоугольников по двум смежным сторонам;
б) двух треугольников по трем сторонам.
Например: если я ввожу 2 должно выйти март
Например: если я ввожу 2 должно выйти март
E,иначе из числа взять корень степени, равной второй цифре числа
если есть умеющте напишите,пожалуйста,программу в Паскале