Werbast
29.10.2020 05:31

1. Напишите код программы для следующей задачи:

Дано число «а», которое обозначает номер месяца.

Если а=1, то вывести на экран ‘январь - winter is here!’

Если а=3, то вывести на экран ‘март - spring is here!’

Если а=7, то вывести на экран ‘июль - summer is here!’

Если а=10, то вывести на экран ‘октябрь - autumn is here!’

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Хряшка
09.10.2021 15:44

Два терміни насправді не говорять про одне і те ж. "Інтернет" - це дійсно транспортний рівень, зазвичай TCP-IP, який швидко шифрується скрізь з використанням "TLS".

В "Інтернеті речей" ви можете переглянути розділ на круговій діаграмі, який розбиває різні варіанти використання цього базового транспортного рівня. Сама по собі це не нова технологія, навіть якщо вона стала можливою завдяки новим технологіям (що означає значне зниження витрат).

Інтернет-трафік сьогодні сильно відрізняється від 10 років тому. У той час Інтернет був значною мірою людьми, які читали окремі веб-сторінки, і трохи відео та покупок. Тепер потокове відео і музика значно розширилися, люди, що працюють вдома, автоматизований збір даних-всього лише кілька ідей.

Термін " IoT " використовується для позначення фази в розвитку Інтернету.

0,0(0 оценок)
Ответ:
122344566
23.11.2020 04:13

program Geom;

program Test_nn;

{$APPTYPE CONSOLE}

{$R *.res}

uses

 Math;

var

 a: array of Extended;

 n, i, c: Integer;

 x: Extended;

begin

 Write ('Размерность массива = ');

 ReadLn (n);

 SetLength (a, n);

 Randomize;

 for i := Low (a) to High (a) do begin

   a [i] := (Random (2001) - 1000) / 1000;

   Write (a [i] :7 :3);

 end;

 x := 1;

 c := 1;

 WriteLn;

 for i := Low (a) to High (a) do begin

   if a [i] > 0 then begin

     Write (a [i] :7 :3);

     x := x * a [i];

     Inc (c);

   end;

 end;

 WriteLn;

 WriteLn ('Среднее геометрическое = ', Power (x, 1/c) :20 :15);

 ReadLn;

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота