1)У тараканов и пауков вместе 74 лапки. Сколько могло быть тараканов и пауков, если у таракана - 6 лапок, а у паука – 8.
2)Написать программу, которая находит и выводит на печать все четырехзначные числа типа abcd, числа a, b, c, d - различные цифры, для которых выполняется: ab-cd=a+b+c+d
Паскаль, сделайте пожалуйста через while очень нужно!!!!!
ДАЮ 100 баллов
Ответы
1) Составим уравнение.
6Т + 8П = 74
3Т + 4П = 37 ⇒ Т = (37 - 4П) / 3
Ясно, что 37 - 4П должно быть кратно 3 и при этом быть положительным.
Попробуем решить подбором
П = 0, 37 - 4П = 37 - не кратно 3
П = 1, 37 - 4П = 33 - кратно трем, Т = 33 / 3 = 11 (1 паук и 11 тараканов)
П = 2, 37 - 4П = 29 - не кратно 3
П = 3, 37 - 4П = 25 - не кратно 3
П = 4, 37 - 4П = 21 - кратно 3, Т = 21 / 3 = 7 (4 паука и 7 тараканов)
П = 5, 37 - 4П = 17 - не кратно 3
П = 6, 37 - 4П = 13 - не кратно 3
П = 7, 37 - 4П = 9 - кратно 3, Т = 9 / 3 = 3 (9 пауков и 3 таракана)
П = 8, 37 - 4П = 5 - не кратно 3
П = 9, 37 - 4П = 1 - не кратно 3
Итак, получаем три варианта решений.
2)
===== PascalABC.NET =====
begin
var a := 1;
while a < 10 do
begin
var b := 0;
while b < 10 do
begin
var c := 0;
while c < 10 do
begin
var d := 0;
while d < 10 do
begin
if a * b - c * d = a + b + c + d then
Print(1000 * a + 100 * b + 10 * c + d);
Inc(d)
end;
Inc(c)
end;
Inc(b)
end;
Inc(a)
end
end.
