Любое составное натуральное число K можно разложить на множители (например: 6=2*3; 220=2*2*5*11). Петя заинтересовался

разложением чисел на множители. Но среди всех чисел он выделяет

лишь те числа, в разложении которых встречаются только 3, 5 и 7 (например:

45=3*3*5; 49=7*7). Весь вечер он вычислял и получил, что самое первое число, в

разложении которого присутствуют только числа 3, 5 и 7 это число 9, следующее

число 15, затем 21. Петя начал строить ряд таких чисел. Он нашёл первые 10

чисел своего ряда: 9, 15, 21, 25, 27, 35, 45, 49, 63, 75. Петя не хочет

останавливаться на достигнутом и решил найти 200 чисел. Составьте программу,

которая Пете.

Написали бы язык программирования хотя бы. Вот вам на java ^_^
import java.io.BufferedReader;
import java.io.InputStreamReader;

public class prog{
 public static void main(String[] args) throws Exception{
 BufferedReader reader=new BufferedReader(new  InputStreamReader(System.in));
 System.out.println("Введите гипотенузу:");
 int c=Integer.parseInt(reader.readLine());
 System.out.println("Введите длину катета:");
 int a=Integer.parseInt(reader.readLine());
 double b=Math.sqrt(c*c-a*a);
 double P=a+b+c;
 System.out.println("Периметр: "+P);
 double S=(a*b)/2;
 System.out.println("Площадь: "+S);
}
}

Объяснение:

var

 N, K, L, P, a : integer;

i : integer;

 p0, b : Double;

begin

writeln ('Введите объём бидона ');            readln (N);

writeln ('Введите количество улиц ');        readln (К);

writeln ('Введите количество литров на улицу ');       readln (L);

writeln ('Введите цену литра молока ');    readln (P);

p0 := n*p; // цена всего бидона первоначально

 for I := 1 to k - 1 do begin   //  с 1 т.к. первой улице не разбадяжил

   p0 := p0 - l*p0/n;  // стоимость всего молока реальная для каждой улицы

   b := (p-p0/n)*l; // на сколько денег обманул улицу

   writeln(Format('%d улице должен вернуть = %f ', [i, b]))

end;

end.