здесь 2 задания Задание 3. Автомобиль Андрей выехал на автомобиле из пункта Bв пункт С, проезжая при этом через пункт А. Из пункта В в пункт А он ехал со скоростью V1 км/час, затратив на поездку 11 часов, а из пункта А в пункт C он ехал со скоростью V2 км/час, затратив на поездку 12 часов. Сколько километров он проехал всего? Формат входных данных На вход программе подаются скорости V1 и V2 (от 1 до 200 км/ч) и время Т1 и 12 (от 1 до 100 часов) поездки. Формат выходных данных Выведите расстояние в км, пройденное автомобилем. Примеры Вход Выход 60 90 37 810 120 180 22 600 Задание 4. Толстый или худой? Вы, наверное, замечали, что люди бывают полными, тоними и нормальными. Известно, что вес человека находится в норме, если он ровно на 100 меньше его роста. Например, оптимальный вес школьника с ростом 160 см будет ровно 60 кг. Ваша задача - определить ти школьника по его весу и росту. Формат входных данных На вход программа получает два целых положительных числа Ни W:H - рост школьника, вес школьника. Числа H, W не превосходят 1000, Формат выходных данных Выведите слово OPTIMUM, если вес школьника оптимален; FAT, если школьнику стоит похудеть; THIN, если школьник худой. Примеры Ввод Вывод FAT 170 105 160 60 OPTIMUM
begin var n := ReadlnInteger('n = '); var m := ReadlnInteger('m = '); var rand := ReadlnInteger('Для ручного ввода нажмите 0');
if rand = 0 then begin a := new integer[m, n]; for var i := 0 to m-1 do for var j := 0 to n-1 do a[i, j] := ReadlnInteger('a[' + i + ',' + j + '] = '); end else a := MatrixRandom(m, n, 1, 100); Println(a);
var b := ArrGen(n, x -> 1); for var i := 0 to m-1 do for var j := 0 to n-1 do if j mod 2 = 0 then b[j] := b[j] * a[i, j];
b.Where((x, i)-> i mod 2 = 0).SortedDescending().Println(); end.
7)На координатной плоскости отмечены числа p,q и r.
Какая из разностей q-p, q-r, r-p отрицательная.
ответ: q-r такая из разниц будет отрицательная
8)
9)
х=±7
ответ :-7
10) Костя не выучил 4 билета всего 25 билетов
25-4=21
Вероятность что Кости попадется билет который он знает 21/25=0,84
13) 8х-3(х+9)≥-9
8х-3х-27≥-9
8х-3х≥-9+27
5х≥18
х≥18/15
х≥3,6
ответ: [3,6;∞) №1
14) 1 минута образуется осадок 0,2 грамма
а1=0,2 гр
а7= неизвестная переменная
d = 0,5 - на столько каждую минуту увеличивается масса осадка.
Формула n-ого члена арифметической прогрессии выглядит так:
аn = a1 + d(n - 1).
Подставляем данные величины:
а7 = 0,2 + 0,2(7 - 1) = 0,2 + 1,2= 1,4грамма
ответ: 1,4 грамма
Объяснение:
a: array [,] of integer;
begin
var n := ReadlnInteger('n = ');
var m := ReadlnInteger('m = ');
var rand := ReadlnInteger('Для ручного ввода нажмите 0');
if rand = 0 then begin
a := new integer[m, n];
for var i := 0 to m-1 do
for var j := 0 to n-1 do
a[i, j] := ReadlnInteger('a[' + i + ',' + j + '] = ');
end
else a := MatrixRandom(m, n, 1, 100);
Println(a);
var b := ArrGen(n, x -> 1);
for var i := 0 to m-1 do
for var j := 0 to n-1 do
if j mod 2 = 0 then
b[j] := b[j] * a[i, j];
b.Where((x, i)-> i mod 2 = 0).SortedDescending().Println();
end.