Блог для маленьких школьников и их родителей
ШколаЛа
13
Декабрь

Составить программу паскаль

Автор: mister123c123
Предмет: Информатика
Уровень: 5 - 9 класс

Составить программу паскаль

Ответов к вопросу: 1
  • aleksiakrumin59
    13.12.2024 | 16:20

    Ответ:
    готово
    Объяснение:
    Задача 1
    var
     n: integer;
    begin
     Write(‘Введите чило >>> ‘);
     ReadLn(n);
     if n mod 2 = 0 then
       WriteLn(‘четное’)
     else
       WriteLn(‘нечетное’)
    end.

    Задача 2
    var
     n: integer;
    begin
     Write(‘Введите год >> ‘);
     ReadLn(n);
     if (n mod 100) = 0 then
     begin
       if (n div 100) mod 4 = 0 then
         WriteLn(n, ‘ год — високосный’)
       else
         WriteLn(n, ‘ год — не високосный’);
     end
     else
       if n mod 4 = 0 then
         WriteLn(n, ‘ год — високосный’)
       else
         WriteLn(n, ‘ год — не високосный’);
    end.

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.

Ищете помощь с задачей по Составить программу паскаль? Узнайте, как решить задачу для школьников 5 - 9 класс и читайте обсуждения от других участников. Ответы уже опубликованы. Не забывайте, что вы можете задать свой вопрос или стать экспертом, помогая другим пользователям.