Признак делимости на 9 - Turbo Pascal

Формулировка задачи:

Уважаемые друзья помогите пожалуйста с задачей по Паскалю. Для натуральных чисел, не превосходящих заданного k, проверить признак делимости на 9 (сумма цифр числа, делящегося на 9, также делится на 9). Распечатать m последних таких чисел (m<<k). Долго икала что то подобное, а нашла ее же только на Java. вот код: (Заранее спасибо!).
import java.util.*;
public class _7lab
{
public static void average ()
{
Scanner consc = new Scanner (System.in);
int i;
int m; 
int k;
int  n = 9;
System.out.println("Ведите натуральное число k, которое не будут превосходит все остальные элементы");
consc.hasNextInt();
k=consc.nextInt();
System.out.println("Ведите число m много(!) меньшее k");
consc.hasNextInt();
m=consc.nextInt();
i=k;
while (i % n != 0){
i--;
i -=(m-1)*n;
}
while (i <= k) {
   System.out.println(i + " ");
   i +=n;
}
}
}


textual

Код к задаче: «Признак делимости на 9 - Turbo Pascal»

var
  m, k, i: integer;
 
begin
  Write('K = ');
  Readln(k);
  Write('M = ');
  Readln(m);
  while (i < m) and (k > 0) do
  begin
    if k mod 9 = 0 then
    begin
      Write(k, ' ');
      i := i + 1;
    end;
    k := k - 1;
  end;
  Readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 3.889 из 5

Источник
Похожие ответы