Задано список. Написати програму формування іншого списку, в якому, якщо еленти заданого списку не утворюють послідовності, яка зменшується, то замінити його від‘ємні елементи одиницями.
Я думаю это майкрасофт ведь он создал персональные компьютеры, игровые приставки и т.п.
C 2012 года производит собственный планшетный компьютер — Surface. Продукция Microsoft продаётся более чем в 80 странах мира, программы переведены более чем на 45 языков.
Штаб-квартира компании находится в городе Редмонд, штат Вашингтон, США.
Штат сотрудников корпорации на 5 июня 2014 года составляет 127 104 человека[8]. В 2018 году заняла второе место в списке 500 лучших работодателей мира по мнению журнала Forbes[9].
Var i,n,k:integer; begin Writeln('15 чисел, кратных 19:'); i:=100; while i mod 19<>0 do Inc(i); { первое, кратное 19 } Write(i,' '); k:=1; while k<15 do begin i:=i+19; Write(i,' '); Inc(k) end; Writeln end.
Задача 2. var m,V,rho,rmax:real; i:integer; begin Writeln('Максимальная плотность материала для 30 тел.'); Writeln('Вводите через пробел массу тела (кг) и объем (куб.см)'); rmax:=0; for i:=1 to 3 do begin Write(i:2,': '); Read(m,V); rho:=m/V; if rmax<rho then rmax:=rho end; Writeln('Максимальная плотность равна ',rmax:0:3) end.
Объяснение:
Я думаю это майкрасофт ведь он создал персональные компьютеры, игровые приставки и т.п.
C 2012 года производит собственный планшетный компьютер — Surface. Продукция Microsoft продаётся более чем в 80 странах мира, программы переведены более чем на 45 языков.
Штаб-квартира компании находится в городе Редмонд, штат Вашингтон, США.
Штат сотрудников корпорации на 5 июня 2014 года составляет 127 104 человека[8]. В 2018 году заняла второе место в списке 500 лучших работодателей мира по мнению журнала Forbes[9].
Надеюсь ты оценишь мой ответ ;)