ПАСКАЛЬ
№1
в массиве из n целых чисел найти минимальное число из чисел, расположенных между первым и последним числом, все цифры которого одинаковы
№2
в массиве из n целых чисел найти первое число и последнее число,являющиеся степенью 6. Поменять их местами пишите номер при решении
Объяснение:
Я думаю это майкрасофт ведь он создал персональные компьютеры, игровые приставки и т.п.
C 2012 года производит собственный планшетный компьютер — Surface. Продукция Microsoft продаётся более чем в 80 странах мира, программы переведены более чем на 45 языков.
Штаб-квартира компании находится в городе Редмонд, штат Вашингтон, США.
Штат сотрудников корпорации на 5 июня 2014 года составляет 127 104 человека[8]. В 2018 году заняла второе место в списке 500 лучших работодателей мира по мнению журнала Forbes[9].
Надеюсь ты оценишь мой ответ ;)
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.
Тестовое решение:
15 чисел, кратных 19:
114 133 152 171 190 209 228 247 266 285 304 323 342 361 380
Задача 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.