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

Question

Аврелиан

14 августа, 01:09

+4

Ответы (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.