Вводим переменные у, х, а, в
дальше условие
х<10
да пишем пример у= х+а
нет
опять условие
<span>10 ≤ х ≤ 23;
</span>да то пишем пример <span>у = х + в
нет
то снова условие </span><span>х > 23.
да пример </span><span>х + а
нет выводим "нет решение"
в конце вывод "у"</span>
Ответ:б и г
Объяснение: я считаю так тошто во 2 строчке 2 ячейки закрашены
Var
a, b, c : integer;
begin
write("Введите 1 целое число: ");
readln(a);
write("Введите 2 целое число: ");
readln(b);
c = a + b;
writeln("Сумма равна: ", c);
end.
Var
a1, a2, a3, mx, mn: real;
begin
writeln('Введите длины отрезков a1, a2, a3');
readln(a1, a2, a3);
mx := max(max(a1, a2), a3);
mn := min(min(a1, a2), a3);
writeln('Наибольший отрезок больше наименьшего в ', mx / mn:0:3, ' раз')
end.
Тестовое решение:
Введите длины отрезков a1, a2, a3
14 11 9.4
Наибольший отрезок больше наименьшего в 1.489 раз
Формула есть I=k*i
k=32*40*64
i=8
I=(32*40*64*8)/(8*1024)= 80 кб (килобайт)