(!) Составьте программку вычисления количества трёхзначных чисел, у которых 1-ая цифра

(!) Составьте программку вычисления количества трёхзначных чисел, у которых первая цифра меньше третьей на 4

Задать свой вопрос
1 ответ
Var i,k:integer;
begin
k:=0;
for i:=100 to 999 do
if (i  div 100 )+4= i mod 10
then k:=k+1;
writeln('Количество чисел  =', k);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт