Задания для составления линейных программ 1. На числовой оси х даны целые числа х, их, (рис. 1). Напиши про- грамму вычисления расстояния между точками с координатами х, их, 2 х 2 Пример 4-8 Результат 12 х 0 AR х s-x,-x, Рис. 1 28. Дано значение х. Вычисли значение у, представляющее выраже- Ние сх. Пример 5 Результат 79 у = 3 (x - 2)3 + 5 (х - 4)2 - 7 3#. Марат и Еркин укладывали кирпичи во дворе. Марат перенес больше кирпичей, чем Еркин. Марат перенес Р кирпичей, а Еркин перенес на К кирпичей меньше, чем Марат. Сколько всего кирпичей перенесли ребята? Пример Результат 150 50 250 - 4**, УАсель есть А тенге. Стоимость одного ластика равна К, а стоимость одной ручки - С. Сколько ластиков или ручек может купить Асель на все свои деньги? Напиши программу к заданию. Пример Результат 100 10 15 10 6 10 10 15 1 0
var a, b, с: integer;
begin
write('Введите два числа: ');
readln(a, b);
if a < b then с := a + 1 else с := b + 1;
repeat с := с - 1
until (a mod с = 0) and (b mod с = 0);
write('NOD = ', с)
end.
//2. Алгоритм с вычитанием (цикл while)
var a, b: integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
while a <> b do
if a > b then
a := a - b
else
b := b - a;
writeln('NOD = ', a);
end.