составить программу ,которая подсчитывает общее количество целых пятизначных чисел,составленных из различных цифр,которые обладают тем свойством,что
5-9 класс
|
число,образованное первыми двумя цифрами ,будучи умноженным на среднию цифру ,дает число,образованное последними двумя числами
var
a, b, c, d, e, n: integer;
begin
n := 0;
for a := 1 to 9 do
for b := 0 to 9 do
for c := 1 to 9 do
for d := 0 to 9 do
for e := 0 to 9 do
if (10 * a + b) * c = (10 * d + e) then n := n + 1;
Writeln(n)
end.
Тестовое решение:
196
Другие вопросы из категории
Всё очень подробною.С полными
А.Рисунок обрежется
Б.Будет выведено сообщения об ошибке
С.Будет Увеличена область рисункаъ
Д.Ничего не произойдет.
2.Для увеличения рисунка по вертикали в 2 раза надо:
А.Выбрать команду Изменить размер,в поле По вертикали написать 2
Б.Выбрать команду Изменить размер,в поле По вертикали написать 200
С.Растянуть рисунок мыщью
Д.Установить Масштаб 200%
Читайте также
равносторонний,равнобедренный или какой либо другой.
Вот ещё одна
Составить программу:Даны а,b,c-целые числа.Если они большн 0-вычислите сумму их квадратов;а если хотя бы одно из них четно-вычислите их сумму и произведение.
Пожалуйста ребят.
Составить программу, определяющую, является ли данное утверждение истинным:Ровно одно из чисел А и В не превышает 100
2. Составьте программу заполнения массива A(20) датчиком случайных чисел в диапазоне от -50 до 49 включительно.
3*. Составьте программу заполнения массива, не используя клавиатуру, числами: 1, 3, 5, 7, 9, 11, 13, 15, 17, 19.
A*B=НОД(A,B)*НОК(A,B)
А × В = НОД(А, В) × НОК(А, В).