М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
alexeygutorov
alexeygutorov
10.11.2021 21:34 •  Информатика

По заданному году g и номера месяца m определите количество дней в месяце. это нужно делать в паскале(с структуры case).

👇
Ответ:
spiridon
spiridon
10.11.2021
Program Primer;
var
m,g:Integer;
begin
Write('Введите год: ');
ReadLn(g);
Write('Введите номер месяца: ');
ReadLn(m);
if (g mod 4=0) and (m=2)
then WriteLn('В феврале ',g,' года 29 дней')
else
case m of
1: WriteLn('В январе 31 день');
2: WriteLn('В феврале 28 дней');
3: WriteLn('В марте 31 день');
4: WriteLn('В апреле 30 дней');
5: WriteLn('В мае 31 день');
6: WriteLn('В июне 30 дней');
7: WriteLn('В июле 31 день');
8: WriteLn('В августе 31 день');
9: WriteLn('В сентябре 30 дней');
10: WriteLn('В октябре 31 день');
11: WriteLn('В ноябре 30 дней');
12: WriteLn('В декабре 31 день')
else WriteLn('Такого месяца не существует');
end;
end.
По заданному году g и номера месяца m определите количество дней в месяце. это нужно делать в паскал
4,4(88 оценок)
Открыть все ответы
Ответ:
Selch
Selch
10.11.2021

1)ткрыть меню кнопки - Пуск (навести указатель мыши и щелкнуть левую кнопку)

2.Выбрать и раскрыть пункт Все программы (навести указатель мыши)

3.Из раскрывающегося списка найти папку Microsoft Office и выбрать программу Microsoft Office Excel 2007 с пиктограммой  (навести указатель мыши и щелкнуть левую кнопку)

2)Лента создана, чтобы упрощать выполнение текущих задач в Microsoft Word. Однако, если Лента занимает слишком большое пространство на экране, ее всегда можно свернуть

3)Строка формул - это панель в верхней части окна Microsoft Excel, которая используется для ввода и изменения значений или формул в ячейках листа. В Строке формул отображается значение или формула, содержащаяся в активной ячейке. Строка формул находится в верхней части окна Excel.

4)Проводя курсы Excel, я наблюдал очень(!) распространённую проблему у начинающих пользователей Excel — многие, написав в ячейку данные, забывают подтвердить ввод. Обязательно подтверждайте ввод данных в ячейку одним из ниже указанных

это самый распространённый отредактировать содержимое любой ячейки подходит как для ввода данных в пустую ячейку, так и для редактирования существующего содержимого ячейки. Если вам нужно что-то ввести в ячейку или изменить в ней (текст, числа, формулы), то просто выполните двойной щелчок.

6)Наставьте мышь на вертикальную линию между заголовками столбцов BиC. Указатель мыши примет вид.

Перетащить и бросить этим указателем влево на 0.5 сантиметра. Ширина столбца B уменьшится.

Этим же указателем перетащить границу столбцовBиCвлево так, чтобы столбецBсократился до нуля и разделительная линия между столбцамиAиCтонкой и одинаковой толщины с другими такими линиями. Отпустите кнопку мыши.

7)Excel позволяет открывать одну и ту же книгу одновременно в нескольких окнах. В нашем примере мы воспользуемся этой возможностью, чтобы сравнить два различных листа одной книг

8)Чтобы переместить ячейки, нажмите кнопку вырезать . Сочетание клавиш Можно также нажать клавиши CTRL+X.

Чтобы скопировать ячейки, нажмите кнопку копировать . Сочетание клавиш Можно также нажать сочетание клавиш CTRL+C

9)Несколько ячеек выделенных блоком (=B5:D8).

Одна ячейка (=A2:A2).

Целая строка (=18:18) или несколько строк (=18:22).

Целый столбец (=F:F) или несколько столбцов (=F:K).

Несколько несмежных диапазонов (=N5:P8;E18:H25;I5:L22).

Целый лист (=1:1048576).

10)Excel – это широко распространенная компьютерная программа. Нужна она для проведения расчетов, составления таблиц и диаграмм, вычисления простых и сложных функций. Она входит в состав пакета Microsoft Office. ... В этой программе можно составлять отчеты, производить вычисления любой сложности, составлять диаграммы

поставь как лучший ответ

Объяснение:

4,7(39 оценок)
Ответ:
lyaman2005
lyaman2005
10.11.2021

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

uses crt;

Var A, B, C, D, X, X1, X2 : Real;

Begin

Writeln ('Введите коэффициенты уравнения (A, B, C) ');

readln(a,b,c);

If A=0 Then

  If B=0 Then

             If C=0 Then Writeln('X - любое число')

                 Else Writeln('Корней нет! ')

       Else

       Begin

       X:=-C/B;

       Writeln('X=',X:8:3);

       End

  Else

  Begin

  D:=B*B-4*A*C;

  If D<0 Then Writeln ('Корней нет! ')

     Else

     Begin

     X1:=(-B+SQRT(D))/2/A;

     X2:=(-B-SQRT(D))/2/A;

     Writeln ('X1=', X1:8:3, ' X2=',X2:8:3);

     End;

  End;

End.

Объяснение:

Это код для решения квадратных уавнений

4,8(59 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ