Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Знайти добуток всих натуральних двохзначних чисел у яких перша цифра вдвичи бильше другойи

Ответ оставил Гость

Var
  p, i: integer;

begin
  p:=1;
  for i:=10 to 99 do
    if (i div 10)=2* (i mod 10) then p:=p*i;
  writeln(p);
end.