В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История

Создайте документ, состоящий из 2 горизонтальных фрэймов. В левом фрэйме разместите изображение, например города. По
нажатию на отдельных элементах города во втором фрэйме
появляется описание данного элемента.

Показать ответ
Ответ:
TemkaVGG
TemkaVGG
19.11.2020 07:27

Пусть исходное число будет abc, где a - первая цифра, b - вторая, c - третья.

b,c - цифры => они принимают целые значения от 0 до 9. Так как число трехзначное, то a не может быть равно 0 => a принимает целые значения от 1 до 9.

Произведение двух цифр не превосходит 9*9=81.

Ищем произведения цифр в числе 123:

1 и 23 - неверно(1=1*1, но 23=1*c=> c=23>9)

12 и 3 - верно(1*3 и 3*4,  записаны в порядке убывания)

Нам нужно найти наименьшее число, значит значения a и b как первых цифр числа должны быть минимальны.

По условию:

a*b=3

b*c=12

Подбираем значения a,b и c:

a=1; b=3; c=12/3=4 - верно, число 134

a=3; b=1; c=12/1=12 - неверно

В итоге, получили, что число 134 - минимальное.

ответ: 134

0,0(0 оценок)
Ответ:
норочка3
норочка3
28.11.2020 05:00
Program Test;

Var
a1, a2, d, k, max, tmp: integer;
sum: real;
rule: boolean;

Begin

Writeln('Введите а1 и а2');
Readl(a1, a2);

k := 2;
d := a2 - a1;
rule := true;

while (rule = true) do
begin
k := k + 1;
tmp := a1 + k * d;

if (tmp < 50) then
max := tmp

else
rule := false;

end;

sum := (a1 + max) / 2 * k;

Writeln();
Writeln('Сумма = ', sum);

End.


Программа будет работать только для арифметических прогрессий, например, таких, как последовательность из задания. Вводить нужно 2 целых числа (первые два члена прогрессии) через пробел (в вашем случае 4 и 7)
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота