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

Question

Аврея

7 декабря, 22:37

+3

Ответы (1)

Знаете ответ?

Евдоша · Answer 1

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.