ТМ
Татьяна Михайлова
помогите пожалуйста решить в pascal abc
в десятичной записи числа 42*4* две цифры числа пропущены. восстановите их, если известно, что число кратно заданному числу n
в десятичной записи числа 42*4* две цифры числа пропущены. восстановите их, если известно, что число кратно заданному числу n
var i,n:integer;
begin
Write('Введите n: ');
ReadLn(n);
for i:=42000 to 42999 do
if ((i div 10) mod 10=4)and(i div 10000=4)and((i div 1000) mod 10=2)
and(i mod n=0) then WriteLn(i);
end.
угу. . 999 итераций ето сурово) попроще:
цонст С = 42040;
вар И, Н, К: интегер;
бегин
реадлн (Н) ;
фор И := 0 то 9 до
фор Ж := 0 то 9 до
бегин
К := С + И*100 + Ж;
иф К мод Н = 0 тхен бреак;
енд;
иф К мод Н = 0 тхен врителн (К)
елсе врителн ("ноу");
енд.
может можно и еще попроще..)