Регистрация
PUPOK2101
14.04.2020 06:07
Информатика
Есть ответ 👍

Чим відрізняється створення форми від опитування в Microsoft Forms

263
482
Посмотреть ответы 1

Ответы на вопрос:

кефирка5623
кефирка5623
4,4(9 оценок)

готово

Объяснение:

Задача 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.

Популярно: Информатика