найдите все двузначные числа, которые содержат заданную цифру N, введенную с клавиатуры.
помогите, пожалуйста! примерно представляю, как все должно выглядеть, но вот записать это языком Паскаля не могу никак
Program primer;
Var i,n,k,chislo:integer;
Begin
cls;
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
