Дано натуральное семизначное число N. Вывести на экран цифры числа, которые делятся на а без остатка. Определить количество цифр,

@Vana999 · Регистрация: 28.05.2011

@Puporev · 22.06.2011, 09:33

Pascal

uses crt;
var n,a,k:integer;
begin
repeat
write('Введите семизначное число n=');
read(n);
until(n>=1000000)and(n<=9999999);
repeat
write('Введите цифру, отличную от 0 a=');
read(a);
until a in [1..9];
k:=0;
writeln('Цифры, делящиеся на ',a,' без остатка:');
while n>0 do
 begin
  if (n mod 10) mod a=0 then
   begin
    write(n mod 10,' ');
    k:=k+1;
   end;
  n:=n div 10;
 end;
writeln;
if k=0 then write('Таких цифр нет')
else write('K=',k);
end.

@Vana999 0 / 0 / 0 Регистрация: 28.05.2011 Сообщений: 33
		1
	Дано натуральное семизначное число N. Вывести на экран цифры числа, которые делятся на а без остатка. Определить количество цифр, 22.06.2011, 01:28. Показов 6374. Ответов 1 Метки нет (Все метки) Дано натуральное семизначное число N. Вывести на экран цифры числа, которые делятся на а без остатка. Определить количество цифр, 0

Опции темы

Дано натуральное семизначное число N. Вывести на экран цифры числа, которые делятся на а без остатка. Определить количество цифр,

Решение