Question

Циклы (for and while), помогите составить программу в Pascal ABC, пожалуйста.
Составьте программу, которая выводит на экран количество трехзначных чисел у которых вторая цифра в два раза больше первой, а третья в два раза больше второй.

Answer 1

var
n, k: integer;
t, v, p : real;
begin
    k:=0;
    for n := 100 to 999 do
    begin
        p:= n div 100;
        v := (n div 10)mod 10;
        t := n mod 10;
        if (v = 2*p) and (t = 2*v) then
            k:=k+1   ;
      end;
      print(k);
end.
   

Answer 2

Только он не количество выводит, а сам числа, чет я невнимательно прочитал

Answer 3

А можите если не сложно исправить

Answer 4

Сек

Answer 5

Можете*

Answer 6

спасибо