1. х -1 часть в граммах
а) 3х=60, х=20
20*2=40 грамм яблок, 20 грамм апельсиноов
б)2х=50 х=25
25*3=75 грамм бананов, 50 грамм яблок, 25 грамм апепельсинов,
вес салата=150грамм
в)х=100
100*3=300 грамм бананов, 200 грамм яблок, 100 грамм апельсинов
вес салата = 600 грамм
2. обозначи 1 число - а, 2 - а+1, 3- а+2, составляем уравнение:
а+а+1+а+2=48, 3а=45, а=15
1 число - 15, 2 - 16, 3- 17
3. 9 чисел. Доказать можно используя дерево вариартов.
7 7 7
| | |
2- 2 7- 2 8- 2
| | |
8 8 8
4. делаешь как 3 задание. потом из всех ветвей выбираешь только те, где число четно
m, n, nok, t, i: longint;
begin
Write('Введите через пробел два целых положительных числа- ');
Readln(m, n);
{Сначала ищем НОК - наименьшее общее кратное}
if m = n then begin
nok := m;
t := m * m
end
else begin
t := m * n;
repeat
if m > n then m := m - n else n := n - m
until m = n;
nok := t div m
end;
{Теперь умножаем НОК на числа натурального ряда,
пока не дойдем до величины t=m*n}
if nok = t then Writeln('Требуемых чисел нет')
else begin
i := 1;
while (nok * i < t) do
begin
Write(nok * i, ' ');
i := i + 1
end
end
end.
Тестовое решение:
Введите через пробел два целых положительных числа- 8 120
120 240 360 480 600 720 840
Введите через пробел два целых положительных числа- 35 620
4340 8680 13020 17360
Введите через пробел два целых положительных числа- 7 13
Требуемых чисел нет
