в трехзначном числе зачеркнули первую цифру слева когда полученное двузначное число уменьшили на 7, то получили данное число.Найти это число решить через бейсик

1

Ответы и объяснения

2013-03-18T09:17:43+04:00


1 Var a,i:integer;
2 begin
3 for i:=100 to 999 do
4 begin
5 a:=i mod 100;
6 if 7*a=i then writeln(i);
7 end;
8 End.