Задать вопрос Регистрация
Помочь другим

  • найдите все двузначные числа, которые содержат заданную цифру N, введенную с клавиатуры.

    помогите, пожалуйста! примерно представляю, как все должно выглядеть, но вот записать это языком Паскаля не могу никак

Ответы 1

  • Program primer;Var i,n,k,chislo:integer;Begincls; write(' skolko chisel budem vvodit ? '); readln(n); write('chislo dlia poiska : '); read(k); for i:=1 to n do begin readln(chislo); if ((chislo mod 10 = k) or (chislo div 10 = k)) then write('chislo ',chislo,' udov uslovie.. ') else write('chislo ',chislo,' NE udov uslovie.. '); writeln; end;readln;End.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years