Nyry
05.08.2021 22:45

3.Компьютерлік вирустардың жіктелуін жазыңыз: 1 2 3 4

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
nuriknur2001
18.11.2021 16:27

так чтоли?

 

<html>
  <head>
    <title>Анкета</Title>
  </head>
  <body>
    <h1>Анкета</h1>
    <form>
      Какой браузер вы используете?
      <select name="browser">
        <option selected> Internet Explorer
        <option> Opera
        <option> Mozila
      </select>
      <br/>
      Ваша электронная почта <input type="text" name="email" />
      <br/>
      Ваше имя <input type="text" name="name" />
      <br/>
    </form>
    <a href="mailto:[email protected]">mailto:[email protected]</a>
  </body>
</html>

0,0(0 оценок)
Ответ:
gulindanil05
02.03.2022 19:20
Var
День,Месяц:byte;
Begin
Write('№ дня = ');ReadLn(День);
Var C:=365-День;
Write('№ месяца = ');ReadLn(Месяц);
Case Месяц of
2:C:=C-31;
3:C:=C-59;
4:C:=C-90;
5:C:=C-120;
6:C:=C-151;
7:C:=C-181;
8:C:=C-212;
9:C:=C-243;
10:C:=C-273;
11:C:=C-304;
12:C:=C-334
End;
if (C mod 100>10)and(C mod 100<20) then Write('До нового года осталось ',C,' дней')
else
Case C mod 10 of
1:Write('До нового года остался ',C,' день');
2..4:Write('До нового года осталось ',C,' дня');
0,5..9:Write('До нового года осталось ',C,' дней')
End
End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота