1. Напишіть програму, яка за поданим числом n виводить на екран всі числа, кратні 2, що не перевищують подане число. 2. Напишіть програму, яка за поданими числами a та b виводить всі числа, кратні 5, з цього
проміжку. Якщо ab – в порядку спадання, якщо a=b – вивести на екран добуток кубу цього числа та самого числа.
3. Дано число а, причому -109 <а<109. Напишіть програму, яка знаходить кількість трійок у цьому числі.
4. Дана послідовність цілих чисел, кількість яких не перевищує 10000. Послідовність завершується числом 0, всі наступні числа зчитувати не потрібно. Виведіть на екран кількість чисел в цій послідовності, що кратні 3.
максимальная сумма двух цифр - 9+9=18
автомат выдал значение 105
разложим на две суммы:
1 и 05 - неверно
105>18 - неверно
10 и 5 - верно(10>18, 5>18)
пусть искомое число будет:
abcd, где a,b,c,d - цифры числа
нужно найти наименьшее число => сумма a+b должна быть минимальной.
из двух сумм берем 5 - наименьшую.
a+b=5
минимальное значение a - 1
a=1 => b=5-1=4
дальше сумма b+c должна быть наименьшей
b+c=10
b=4(из предыдущей) => c=10-4=6
и, наконец, третья сумма, которую отбросили, тоже должна быть минимальной:
c+d=11
c=6 =>d=11-6=5
В итоге искомое число:
abcd=1465
ответ: 1465
// П
uses Drawman;
begin
Field(3, 4);
ToPoint(1, 1);
PenDown;
OnVector(0, 2);
OnVector(1, 0);
OnVector(0, -2);
end.
// Б
uses Drawman;
begin
Field(3, 4);
ToPoint(1, 1);
PenDown;
OnVector(0, 2);
OnVector(1, 0);
PenUp;
ToPoint(1, 2);
PenDown;
OnVector(1, 0);
OnVector(0, -1);
OnVector(-1, 0);
end.
// Ч
uses Drawman;
begin
Field(3, 4);
ToPoint(1, 3);
PenDown;
OnVector(0, -1);
OnVector(1, 0);
OnVector(0, 1);
OnVector(0, -2);
end.
// Ц
uses Drawman;
begin
Field(25, 27);
ToPoint(5, 25);
PenDown;
OnVector(0, -20);
OnVector(15, 0);
OnVector(0, 20);
OnVector(0, -20);
OnVector(2, 0);
OnVector(0, -3);
end.
// Ш
uses Drawman;
begin
Field(4, 4);
ToPoint(1, 3);
PenDown;
OnVector(0, -2);
OnVector(2, 0);
OnVector(0, 2);
OnVector(0, -2);
Onvector(-1, 0);
OnVector(0,2);
end.
// E
uses drawman;
begin
Field(3, 4);
ToPoint(1, 1);
PenDown;
OnVector(0, 2);
OnVector(1, 0);
PenUp;
ToPoint(1, 2);
PenDown;
OnVector(1, 0);
PenUp;
ToPoint(1, 1);
PenDown;
OnVector(1, 0);
end.
(Если я тебя правильно понял то вот держи)